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.S.l EOIT PROCEDURE 

1. PURPOSE 

MAGNETIC TAPE INTERCHANGEABILi TV ANO SKEM FUNCTION TEST IMTISI IS DESIGNEO 
TO TEST THE ABILITY OF TAPE ORIVES TO WRITE VARYING LENGTH RECOROS ANO REAO 
THEM BACK CORRECTLY, EITHER ON THE SAME DRIVE OR ON ANOTHER DRIVE. 
THE MTIS PROGRAM IS WRITTEN TO ACCOMODATE SYSTEMS WITH. 



1.1 
1.2 



ONE OR TWO TAPE CRIVES. 

ORIVES WITH 9 TRACK OR 7 TRACK READ-WRITE HEADS. 

IN SYSTEMS WITH TWO TAPE ORIVES, THE DRIVES HILL BE EXERCISEO IN 
A SERIAL FASHION. BECAUSE MTIS RUNS UNDER CONTROL OF THE 
DIAGNOSTIC MONITOR, INTERACTION BCTWEEN MAGNETIC TAPE DRIVES AND 
OTHER OEVICES CAN ALSO BE TESTED. 



THIS PROGRAM AND THE 2400 F. 
OTHER IN OVERLAP MODE. 



T. MUST NOT, HOWEVER, BE RUN WITH EACH 



2. PREREQUISITES 



THIS PROGRAM MUST RUN UNDER CONTROL OF THE DIAGNOSTIC MONITOR. THE 
DIAGNOSTIC MONITOR USES 2,047 STORAGE WORDS ANO THIS PROGRAM ALSO USES 2.04T 
STORAGE WOROS. 

THE PROGRAM 2400 F. T. IS NOT A PREREQUISITE FOR THIS PROGRAM, BUT IT MUST 
BE REAL12E0 THERE ARE PORTIONS OF THE MAGNETIC TAPE SYSTEM WHICH ARE MORE 
THOROUGHLY CHECKED BY THE 2400 F. T. TO CHECK THE ENTIRE MAGNETIC TAPE 
SYSTEM THE ENTIRE FAMILY OF MAGNETIC TAPE TESTS MUST BE RUN. 

CAUTION — THIS PROGRAM OOES NOT CHECK FOR END OF TAPE, THEREFORE, THE REEL 
USED MUST CONTAIN SUFFICIENT TAPE FOR THE TEST. APPROXIMATELY 
600 FEET OF TAPE ARE REQUIRED, 



3. OPERATING PROCEDURE 

3.1 PROGRAM LOADING 

STANDARD LOADING PROCEDURE AS DESCRIBED IN THE DIAGNOSTIC MONITOR 
USE PROCEDURE. 

ON 2400 TAPE ORIVEISI, 

1. LOAD REEL OF TAPE. 

2. OEPRESS LOAO-REWIND KEY. 

3. OEPRESS START KEY. 

TAPE SHOULD REWINO TO LOAO POINT, AND READY LAMP SHOULD GO ON. 

3.2 PROGRAM OPERATIC* 

STANOARD MONITOR OPERATING PROCEDURES APPLY. THESE PROCEDURES ARE 
SUMMARIZED HERE. SEE DM USE PROCEDURE FOR DETAILS OF PARTS 1-4 BELOW 

1. CLEAR STORAGE 

2. LOAD DIAGNOSTIC MONITOR 

3. SELECT MODE OF EXECUTION 

4. SELECT MONITOR CONTROL OPTIONS 

5. SELECT PROGRAM OPTIONS FROM, 

TABLE 0-PROGRAM CONTROL FUNCTION 

TABLE 1 SELECT ANO LOOP ROUTINE 

TABLE 2-DEVICE SELECT FUNCTION 

TABLE 3-OATA ENTRY FUNCTION 

NOTE 

IF NO OPTIONS ARE SELECTED, THE PROGRAM HILL 
AUTOMATICALLY RUN BOTH DRIVES IN SEQUENCE, UNLESS 
DRIVE 1 IS EDITED AS NOT AVAILABLE. NO INTERCHANGE- 
ACUITY TEST WILL BE RUN WITH NO OPTIONS SELECTED. 

6. INSTRUCT MONITOR TO EXECUTE. 

TABLE PROGRAM CONTROL FUNCTION 

•**•••••••*•*•*,«• lm SET FUNCTION 00 IN SENSE/PROGRAM SWITCHES AND 1. 

• IAS SHOWNI 

SENSE/PROGRAM • 2. SET PIO IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

• (AS SHOWN) 

1 2 3 4 5 6 7 • 3. SET DESIRED CONTROL OPTIONS IN DATA ENTRY SW'TCHES 0-15. 

• 4. PRESS CONSOLE INTERRUPT. 

C I 1 1 • 5. BIT 8 MUST BE ENTEREO PRIOR TC FXECUTION. ALL OTHER 

• SWITCHES MAY BE CHANGED AT ANY TIME. 

OATA ENTRY SWITCHES * DESCRIPTION 

1 2 3 4 5 6 7 B 9 10 11 12 13 14 15 



1 BYPASS ALL PRINTOUTS WITH A PREFIX OF 

A, C OR D. 



•PRIfcT ONLY THE FIRST BAO DATA WORO. 



1 - RUN INTERCHANGEABILITY MODE. 
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TABLE 1 LOOP ROUTINE 



••••••••••••••••a** i. SEI FUNCTION OC IN SENSE/PROGRAM SNITCHES AND 1. 

• • CAS SHOWN) 

• SENSE/PROGRAM • 2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH T. 

• * (AS SHOWN) 

• 01234567* 3. SET ROUTINE IN DATA ENTRY SWITCHES 14 OR 15. 

• • 4. PRESS CONSOLE INTERRUPT. 
•01001011* 5. ROUTINE MUST BE ENTERED PRIOR TO EXECUTION, BUT MAY BE 

• • CLEARED TO ALLOW PROGRAM TO GO TO TERMINATION, AT ANY 

• • TIME. 
•••••••••••••••••••••••••••••**»*****»*»»»*»»*»»»»»***«»,»«,»»»„» # , ## ^ # . ####### 

• DATA ENTRY SWITCHES * DESCRIPTION • 

• 1 2 3 * 5 6 7 8 9 10 11 12 13 14 15 * 

. 1..L00P ONLY THE WRITE SECTION Of THE • 

PROGRAM * 

1 LOOP ONLY THE READ SECTION OF THE • 

PROGRAM (WITH THIS SWITCH ON THE * 
WRITE SECTION IS BVPASSEOI • 

**•**•*»**»**•*♦•***»**»•*»»♦•*»**•**»****•**••«■•*•*•*••*♦•»«*••*#••*»*♦»»»»»»*»» 

TABLE 2-DEVICE SELECT FUNCTION 

•*••••«**•••••*•••• i. s ET FUNCTION 10 IN SENSE/PROGRAM SWITCHES AND 1. 

• • (AS SHOWN) 

• SENSE/PROGRAM • 2. SET PID IN iENSE/PROGRAM SWITCHES 2 THROUGH 7. 

• • IAS SHOWN) 

•01234567* 3. SET DESIRED DEVICE SELECTION IN DATA ENTRY SWITCHES. 

• • 4. PRESS CONSOLE INTERRUPT. 

•10001011* 5. OEVICE SELECTION MUST BE MADE PRIOR TO EXECUTION. 
•*••*•*•*•••*********•*•******♦»*»****••**••••»****•*•******♦**»»#»»,*#*»»,»»*», 

• DATA ENTRY SWITCHES • DESCRIPTION • 

• 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 • • 

• • * • 00 NOT RUN DRIVE 1. * 

• . , 

• * 00 NOT RUN DRIVE 0. * 

• * 

• NOTE 1-DRIVE SELECTION IS REQUIRED ONLY IF IT IS NOT DESIRED TO RUN BOTH DRS.* 

• NOTE 2-1 F THE SYSTEM HAS ONLY ONE ORIVE AN ENTRY OF 0001 IS MADE • 

• ON THE EDIT CARD AND THIS OPTION IS NOT USED. • 

•*••**••**••*••***••*»*•***♦•*••»•••**••••••••••***•**•*••**••*»•»*•»•*»»»*»»*»» 

TABLE 3-DATA ENTRY FUNCTION 

• *•••»••**•••»*•••* I# SET FUNCTION 11 IN SENSE/PROGRAM SWITCHES AND 1. 

• • (AS SHOWN) 

• SENSE/PROGRAM • 2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

• * IAS SHOWN) 

•01234567* 3. SET DESIRED DATA IN DATA ENTRY SWITCHES 0-15. 

• • 4. PRESS CONSOLE INTERRUPT. 

•11001011* 5. DATA ENTRY MUST BE MADE PRIOR TO EXECUTION. 
***********•*••*•*****••••*••*•••••»••»**••*•••••••••*••••»****•*»•*#»#»*##»»» ** 

• DATA ENTRY SWITCHES • DESCRIPTION • 

• 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * • 

• • 

• XXXXXXXXXXXXXXXXXX X.. ENTER DATA PATTERN DESIRED • 

• • 

• NOTE 1-IF THE PROGRAM SEES A HEXADECIMAL 0000 IN THIS SWITCH FUNCTION THE • 

• HEXADECIMAL PATTERN OF 3F3F IS USED. • 

• • 

• NOTE 2-IF THE SYSTEM HAS ONE 7 TRACK ORIVE AND ONE 9 TRACK DRIVE AND IF • 

• THIS RUN WILL INCLUDE THE 7 TRACK DRIVE, THE DATA PATTERN MUST BE * 

• COMPATABLE TO BOTH 7 AND 9 TRACK DRIVES. BITS 0, 1, 8 ANO 9 • 

• MUST BE A 2ER0. * 
••••*••**••*•••*•••**•••••••••••••••••••••••*••**••• •••♦••••••••*»*#***»»»»»»»*0 



3.3 PROGRAM HALTS 

THIS PROGRAM WILL NEVER WAIT, UNLESS THE DIAGNOSTIC MONITOR OPTION OF 
HALT ON ERROR IS SELECTED. SEE DM USE PROCEDURE FOR THIS OPTION. 

3.4 PROGRAM TERMINATION 

THE PROGRAM WILL NORMALLY TERMINATE AFTER ONE COMPLETE PASS ON ALL 

SELECTED DRIVES. THE PROGRAM CAN BE MANUALLY TERMINATED BY USE OF 

THE DEEXECUTION OPTION OF THE MONITOR. WHEN RUNNING IN THE BOOTSTRAP 
MODE, THE PROGRAM MUST BE ALLOWED TO TERMINATE NORMALLY. 



4. PRINTOUTS 



4.1 



COMMANC MESSAGES 



PID MID RID RAD UNIT 
OBOO COOO 0000 XXXX OOOX 

DRIVE IS SELECTEO TO BE RUN BUT IS NOT READY. 

THE PROGRAM WILL CONTINUE WITH ORIVE 1 IF IT IS SELECTEO AND READY. 

OBOO C001 0000 XXXX OOOX 

DRIVE 1 IS SELECTEO TO BE RUN BUT IS NOT READY. 

THE PROGRAM WILL CONTINUE WITH DRIVE IF IT IS SELECTED ANO READY. 

OBOO C002 XXXX XXXX OOOX 

THE WRITE SECTION IS COMPLETE. MAKE SELECTEO DRIVES READY. 
THIS fRINTOUT OCCURS ONLY IF RUNNING I NT EXCHANGEABILITY MOOE. 



4.2 



DATA MESSAGES 



ABC D E F C 
OBOO D001 XXXX XXXX OOOX XXXX XXXX XXXX XXXX XXXX XXXX XXXX 
PROGRAM IS COMPLETE. THIS MESSAGE MILL OCCUR WHEN 
ALL SELECTEO ORIVES HAVE COMPLETED A PROGRAM 
PASS. 

A-NUMBER OF RECOVERED READ ERRORS. 
B-SUMBER OF UNRECOVERABLE READ ERRORS. 
C-NUMBER OF RECOVERED WRITE ERRORS. 
D-NUMBER OF UNRECOVERABLE WRITE ERRORS. 
E-NUMBER OF PROGRAM PASSES. 
F-TOTAL WRITE COMMANDS 1SSUE0. 
G-TOTAL READ COMMANDS ISSUED. 

NUMBER 

OF 

RETRVS 
OBOO A001 XXXX XXXX OOOX XXVV 

RECOVERED REAO ERROR. 
PLUS YV. 



NUMBER OF RETRVS IS EQUAL TO XX TINES 10 



OBOO A002 XXXX XXXX OOOX 

UNABLE TO BACKSPACE RECORD IN ERROR PAST THE TAPE CLEANER, 
BECAUSE LOAD POINT WAS REACHED FIRST. 

NUMBER 
OF 

RETRVS 
OBOO A003 XXXX XXXX OOOX OOVV 

RECOVERED WRITE ERROR. NUMBER OF RETRVS IS EQUAL TO VV. 
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4.3 



ERROR PRINTOUTS 



OSM 

RECEIVED 
OBOO E001 XXXX XXXX OOOX XXXX 

NO LEGAL BITS WERE ON IN THE OSN AT INTERRUPT. 
NILL BE TERMINATED FROM THIS RUN. 

LAST 

FUNCTION 
AND 

MODIFIER 
OBOO £002 XXXX XXXX OOOX XXXX 

LOST INTERRUPT. THE DRIVE 



ThS DRIVE IN ERROR 



IN ERROR WILL BE TERMINATED FROM THIS RUN. 



OSW 

RECEIVED 
OBOO E003 XXXX XXXX OOOX XXXX 

UNRECOVERABLE REAO ERROR. THIS PRINTOUT MAY OCCUR BECAUSE BITS 
2, 4, St 14 OR IS WERE ON AFTER A READ OR BECAUSE 100 RETRIES HAVE 
ALL FAILED. 

A B C E 
OBOO E004 XXXX XXXX OOOX XXXX XXXX XXXX XXXX XXXX 
DATA RECEIVED HAS IN ERROR. 

A-HORD COUNT OF THIS RECORO. 

B-CATA RECEIVED. 

C-CATA EXPECTEO. 

D-WORO NUMBER IN ERROR. 

E-WORD COUNT OF THE PREVIOUS RECORO. 

OSW 
RECEIVED 

OBOO EOOS XXXX XXXX OOOX XXXX 

DSW SHOWS RECOVERABLE WRITE ERROR. 

OSW 

RECEIVED 
OBOO E006 XXXX XXXX OOOX XXXX 

UNRECOVERABLE WRITE ERROR. THIS PRINTOUT MAY OCCUR BECAUSE BITS 
2, 4 t Si lit 14 OR IS ARE ON IN THE DSW AFTER A WRITE GR BECAUSE 
THREE RETRVS HAVE ALL FAILEO. THE DRIVE IN ERROR WILL BE TERMINATED 
FROM THIS RUN. 

DSW 

RECEIVED 
OBOO EC07 XXXX XXXX OOOX XXXX 

THE DSW SHOWS A RECOVERABLE READ ERROR. 



S. COMMENTS 

5.1 PROGRAM DESCRIPTION 

THIS PROGRAM CONSISTS OF A SERIES OF COMMON MAGNETIC TAPE SUBROUTINES 
ANO ONE TESTING ROUTINE, WITH TWO MODES OF OPERATION. 

5.2 TEST ROUTINE 
MODE 1 

IN THE NORMAL MCOE OF OPERATION THE PROGRAM WILL, 

1. WRITE A SERIES OF RECORDS ON ONE TAPE DRIVE USING VARYING 
WORD COUNTS. 

2. REWIND THE DRIVE AND REAO ALL RECORDS WRITTENt CHECKING BOTH 
Tt-E OSW WORD AND THE CATA RECEIVED. 

3. REPEAT STEPS 1 AND 2 ON THE SECOND DRIVE IF IT IS AVAILABLE 
ANO SELECTED TO BE RUN. 

IN CASE OF ERROR ON EITHER THE READ OR WRITE OPERATION, 
THE STANOARD ERROR RECOVERY PROCEDURE IS USED. 

MODE 2 

IN THE INTERCHANGEABILITY MCOE OF OPERATION THE PROGRAM WILL, 

1. WRITE A SERIES OF RECOROS ON ONE TAPE DRIVE USING VARYING 
WCRO COUNTS. 

2. ISSUE A REWIND-UNLOAD COMMAND TO THE DRIVE JUST WRITTEN. 

3. REPEAT STEPS 1 AND 2 ON THE SECOND DRIVE IF IT IS AVAILABLE 
ANO SELECTED TO BE RUN. 

4. LOOP. THROUGH THE DIAGNOSTIC MONITOR. UNTIL ALL SELECTED 
DRIVES AGAIN BECOME READY. 

OPERATOR. SWAPS TAPE REELS ANO MAKES DRIVES REAOY AT THIS 
TIME. 

NOTE 

SINCE 7 AND 9 TRACK DRIVES ARE NOT COMPATABLEt IF 
THIS SYSTEM HAS ONE 9 TRACK AND ONE T TRACK DRIVE THE 
KEELS CANNOT BE SWAPPEO. IN THIS CASE A PREVIOUSLY SAVED 
REEL USING THE SAME PATTERN AND WORD COUNTS MIGHT BE USED. 

5. REAO ALL RECOROS WRITTEN ANO CHECK BOTH THE DSW WORD AND 
DATA RECEIVED FOR ACCURACY. 

IN CASE OF ERROR ON EITHER THE READ OR WRITE OPERATION, 
THE STANOARD ERROR RECOVERY PROCEDURE IS USED. 

5.3 COMMON MAGNETIC TAPE SUBROUTINES 

EACH SUBROUTINE ASSUMES THAT INDEX REGISTER ONE CONTAINS THE DRIVE 
NUMBER PRESENTLY BEING USED. 

NAME CALL 

BSP BS1 L BSP 

USE-BACKSPACE ONF RECGROt THE ORIVE INDICATED BY INDEX REGISTER ONE. 
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CKBSV BSI L CKBSV 

USE-ENTER ROUTINE SNOSW TO SENSE THE DRIVE INDICATED BY INDEX REGISTER 
ONE. CHECK BIT 14 OF T H E SENSE WORD TO CHECK FOR DRIVE BUSY. IF 
THE DRIVE IS NOT BUSY. EXIT FROM THE ROUTINE. IF THE ORIVE IS BUSY, 
A COUNT IS UPDATED AND A LOOP IS ESTABLISHED THROUGH THE DIAGNOSTIC 
MONITOR. IF THIS BUSY COUNT OVERFLOWS. LOST INTERRUPT IS PRINTED 
AND THAT TAPE DRIVE IS TERMINATED FROM THIS RUN. 



\ 



NER BSI L MEN 

C6C MESSAGE ID 
DC FORM NUMBER 

USE-SET UP THE DESIREO MESSAGE FROM THE MESSAGE 10 AND FORM NUMBER AND 
CALL CN THE DIAGNOSTIC MONITOR ROUTINE. ERROR. 

MLG BSI L MLG 

DC MESSAGE ID 
DC FORM NUMBER 

USE-SET UP THE DESIRED MESSAGE FROM THE MESSAGE 10 AND FORM NUMBER AND 
CALL ON THE DIAGNOSTIC MONITOR ROUTINE. LOC. 

NT I INTERRUPT ROUTINE 

USE-SENSE THE DSU TWICE. THE FIRST SENSE IS NON-RESETABLE AND THE SECOND 
IS RESETABLE. THE WORD RECEIVED FROM THE SECOND SENSE IS SAVE'?. THE 
SENSE WORD IS CHECKEO FOR LEGAL BITS (BITS 2. 3 OR 91 AND IF NO LEGAL 
BITS ARE ON. A RETURN IS SET TO ALLOW PRINTING OF THE ILLEGAL 
INTERRUPT. 

RD BSI L RD 

USE-READ A RECORD FROM THE TAPE ORIVE INDICATED BY INDEX REGISTER ONE. 

THE DSW ANO THE DATA RECEIVED ARE CHECKED FOR EXPECTEO AND ANY ERRORS 
ARE PRINTED. IN THE EVENT OF ERRORS. A RETRY ROUTINE IS ENTERED 
WHICH MILL RETRY THE RECORD A MAXIMUM OF 100 TIMES. 

RLDEV BSI L RLDEV 

USE-CALL ON THE DIAGNOSTIC MONITOR RELDV ROUTINE TO RELEASE THE CHANNEL 
FOR POSSIBLE USE BY OTHER PROGRAMS BEING RUN IN OVERLAP MODE. 

RQDEV BSI L RQDEV 

USE-CALL CN THE DIAGNOSTIC MONITOR REODV ROUTINE TO SECURE USE OF THE 

CHANNEL FOR THIS PROGRAM. IF THE CHANNEL IS ALREAOY IN USE BY ANOTHER 
PROGRAM LOOP. THROUGH THE DIAGNOSTIC MONITOR. UNTIL THE CHANNEL 
IS FREE. 

RWO BSI L RWD 

USE-REWIND THE ORIVE INDICATED BY INDEX REGISTER ONE. 

RWOU BSI L RWOU 

USE-ISSUE A REWIND-UNLOAD COMNANO TO THE DRIVE INDICATED BY INDEX 
REGISTER ONE. 

SNDSW BSl L SNDSM 

USE-SENSE THE ORIVE INDICATED BY INDEX REGISTER ONE. THE DRIVE IS 

SENSEO TWICE ANO THE TWO SENSE WORDS RECEIVED ARE COMPARED. IF THE 
TWO WOROS ARE NOT THE SAME. THE DRIVE IS AGAIN SENSED TWICE. WHEN 
THE WORDS COMPARE. THE ROUTINE EXITS WITH THE SENSE WORD IN THE 
A REGISTER. 

STPST BSt L STPST 

DC AODRESS TO SET 

USE-SET AN ENTRY IN THE MLSCF TABLE FOR LATER USE BY THE DIAGNOSTIC 
MONITOR. 

WRT BSI L WRT 

USE-WRITE ONE RECORD ON THE TAPE ORIVE INDICATED BY INDEX REGISTER ONE. 
IN THE CASE OF CORRECTABLE WRITE ERRORS THE ROUTINE WILL BACKSPACE. 
ERASE ANO REWRITE. A MAXIMUM OF THREE RETRIES WILL BE PERFORMED,. 
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SHOULD BE LEFT BLANK. 



DDEF STANDS FOR DEVICE DEFINITION EDIT FIELD. IT INCLUDES: 



I. 
2. 
3. 



tuc iutcpriipt LEVEL ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION, 00-17). 
Xp hIuS.^ POSITION ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION, 0-F). 

m c^li as^Sb to'tSI Je!.c1 (o-8). if this is a dpc DEVICE, punch an f 



IN THE CARD COLUMN. 



ENTRY 1 
2400 
DDEF 
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CARD 1 IS AN OPTIONAL EDIT CARD. THIS CARD IS REQUIRED ONLY IF IT IS DESIRED TO RUN WORD COUNTS OTHER THAN THE WORD COUNTS NORMALLY USED BY THE PROGRAM. 
ANY WORD COUNTS ENTERED ON CARD I MUST FALL BETWEEN THE LIMITS OF 0008 THROUGH 03E8. (8 THROUGH 1000 DFCIMAL). ALL OR ANY OF THE RECORD WORD 
LENGHTS MAY BE CHANGED. IF CARD 1 IS ENTERED, THE WORD COUNTS USED BY THE PROGRAM ARE REPLACED BY THE WORD COUNT ON THE EDIT CARD UNLESS AN 
y EDIT CARD ENTRY IS 0000. ANY ENTRIES OF 0000 ARE IGNORED AND THE WORD COUNT FOR THAT ONE RECORD REMAINS UNCHANGED. 

s ALL FIELDS OF CARD i MUST CONTAIN EITHER 0000 OR A WORD COUNT, IF CARD 1 IS USED. NORMAL WORD COUNTS USED BY THE PROGRAM ARE: 

RECORD DECIMAL HEXADECIMAL 

1 -- 10 OOOA 

2 kO 0028 

3 (A 0(*0 

ENTRY 1 ENTRY 2 ENTRY 3 ENTRY k ENTRY 5 ENTRY 6 ENTRY 7 ENTRY 8 


l 










X 

1 



£ 








Ul 



Ul 

UJI-J 

«"£ 

eez 

5 






vt 

Ul 

u.— 
ope 

ae z 

Ul Ul 

CO 

XI- 

=J — 

za 

Ul 




WORD COUNT 

FOR RECORD 1 

(HEX) 




WORD COUNT 

FOR RECORD 2 

(HEX) 




WORD COUNT 

FOR RECORD 3 

(HEX) 




WORD COUNT 

FOR RECORD k 

(HEX) 




WORD COUNT 

FOR RECORD 5 

(HEX) 




WORD COUNT 

FOR RECORD 6 

(HEX) 




WORD COUNT 

FOR RECORD 7 

(HEX) 




WORD COUNT 

FOR RECORD 8 

(HEX) 


















S^ UHM 


T 

3 


z\* 


Ms 


(> 


7 


S 


I 


D 


11 


izfr? 


\k 


5| 


\i 


17 


13119(20 


4 










£6 










31 










* 




f 




ill 










f 










51 










t 










i\ 










W 


1 


,z 










CARD 1 


B 





k 


E 


D 





1 


^0 


p 


*& 


11 


^ 










^ 








^ 






^ 


1 




^ 








k 








S 










§ 










^ 












S3 












iiiiaiiiHiiiiai ibiiiiiiii gi 3ir£iiisMii3iii& i §s nsi 


a II 


END 


E ioa .i.^ r | r | r i^ \\\m\ %ty m\\% i:ia i is 1 1 1 § 1 1 1 a. i m 1 1 m 1 1 i_l_. 


s. II 




i i MSI t^ii -an ^ in _ i 3 anir"iiainaii -§3 3 a 11 






TTIT 




3 


§ 






Is 






^ 


1 










£ 1 


31 


m 












S ! g §i ^ 


II 


RECORD (CON'T) DECIMAL (CON'T) HEXADECIMAL (CON'T) 
k 128 0080 
% 256 0100 

6 512 0200 

7 700 02BC 

8 1000 03E8 

THE LAST CARD IS THE *END EDIT CARD* . THE INFORMATION IN THIS CARD INCLUDES: 1. AN *E* IN COL. 1. 2. THE PID FOR THIS PROGRAM (COL. 2-3). 

3. A TERMINATOR WORD OF *FFFF* (COL. 7-10) 
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*************************************************** 

*** ****** ****** ************** ** ******************** 

* MONITOR ENGLISH MESSAGE DECK 

*************************************************** 

*************************************************** 

* 

THE 1800 ENGLISH LANGUAGE MESSAGE DECK IS USED 
IN CONJUNCTION WITH THE 1800 DIAGNOSTIC MONITOR 
PROGRAM TO PROVIDE ENGLISH LANGUARE PRINTOUTS 
FOR ALL DIAGNOSTIC MONITOR CONTROLLED PROGRAMS. 



THE FIRST THREE CARDS OF THE ENGLISH MESSAGE 
DECK CONTAIN THE PROGRAM THE LISTING OF WHICH 
APPEARS BELOW. THE FUNCTION OF THIS PROGRAM IS 
TO XFER CONTROL TO THE ENGLISH MESSAGE OECK 
LOADER SECTION OF THE MONITOR. IF THE ENGLISH 
LOADER SECTION OF THE MCNITCR IS NOT IN CORE 
THEN THE XFER IS TO AN ERROR WAIT IN THE MONITOR. 

THE REMAINING CARDS IN THE ENGLISH MESSAGE DECK 
CONTAIN THE CONTENT OF THE ENGLISH MESSAGES. 
THESE CARDS ARE READ BY THE ENGLISH OECK LOADER 
SECTION OF THE MONITOR. 



07FF 

006 F 
0135 

07FF 

0801 

0803 
0805 

0808 
NO 



* 

RLBA 

ENGLD 

DECK 







C400 0135 
44A0 0135 

6C00 0070 
4C00 0136 



07FF 
STATEMENTS FLAGGEO 



IN 



ORG 

EQU 
ECU 

LD 
BSI 

STX 
BSC 

END 

THE 



♦+/07FF 

/006F 
/0135 

ENGLD 
ENGLD, Z 

RLBA+i 

ENGLD+1 



GO TO ENG DECK LOADER IF 
* LOADER IS STILL IN CORE 

SET LAST CARD INDICATOR 
GO TO ERR WAIT IN MONITOR 



DECK 

ABOVE ASSEMBLY 
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80C00020 
8CC00030 
8 OC 00040 
80C00050 
8CC00060 
80C00070 
80C00080 
80C00090 
80C00100 
80C0OUO 
80C 00120 
80C00130 
80C 00140 
8CC00150 
80C00160 
80C 00170 
80C00180 
80C00190 
80C00200 
80C00210 
80C00220 
80C 00230 
80C00240 
80C00250 
80C 00260 
80C00270 
80C00280 
80C 00290 
80C00300 
80C 00310 
80C00320 
80C00330 
8CC00340 
80C00350 
80C00360 
80C00370 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
1800 MONITOR ENGLISH DECK 



DECK 07FF 0808 

ENGLD 0135 07FF 0801 0805 

RLBA 006F 0803 

END OF ASSEMBLY 
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DATE 

EC NO. 



03JUL68 
411944 



14N0V69 
431319 



PROG ID 
PAGE 



080C-0 
I 



DATE 
EC NO. 



03JUL68 
411944 



14N0V69 1 
431319 



PROG ID 
PAGE 



080C-0 
1A 
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IBM MAINTENANCE DIAGNOSTIC PROCRAN FOR THE 1800 SYSTEM 
2400 INTERCHANGEABILITV ANO SKEW FACTION TEST 



0000 



ORG 



•♦20*7 







• 
• 
• 
• 




EQUATE TABLES 


012C 




• 

BESIN EQU 


300 




0120 




ST»RT EQU 


BEGIN*! 




012E 




END 


EQU 


START+1 




012F 




LOS 


EQU 


END*1 




0130 




ERROR EQU 


LOG*! 




0131 




REQOV EQU 


ERROR+1 




0132 




RELOV EQU 


REQDV+1 




0133 




CKCR 


EQU 


RELDV*1 




07FF 


OBOO 


PID 


OC 


/OBOO 


PROG ID 


0800 


0000 


*I0 


OC 





RTN ID 


0801 


0000 


«A0 


DC 





RTN AORS 


0802 


0000 


SUO 


DC 





SW FNC 00 


0803 


0000 


SHI 


DC 





01 


0804 


0000 


SH2 


DC 





10 


0805 


0000 


SW3 


DC 





11 


0806 1 


0848 


I P. A 


DC 


MTRST 


INIT ADRS 


0807 1 


086C 


LPA 


DC 


M0N03 


LOOP ADRS 


0808 1 


0864 


EPA 


DC 


MTENO 


END ADRS 


0809 


0000 


MLSCF OC 





INTRPT VECTOR 


080A 


0000 




DC 





MAIN LINE VECTOR 


080B 


FFFF 


TE*M 


DC 


/FFFF 


TERMINATOR 


080C 1 


OFFB 




DC 


PEND 


PROG HIGH LIMIT 


0800 


0000 




DC 







080E 


0000 




DC 







080F 


0000 




DC 







0810 


0000 




DC 







0811 


0000 




DC 







0812 


0000 


EDIT 


DC 





INTR LVLt ILSW, CH. 


0813 


0000 




DC 





DR 1 AVAIL SW 


0814 


0000 




DC 





WD CT FOR REC 1 


0815 


0000 




DC 





2 

3 
4 
5 
6 

7 
8 


0816 


0000 




DC 





0817 


0000 




OC 





0818 


0000 




DC 





0819 


0000 




DC 





031 A 


0000 




DC 





081 B 


0000 




DC 









•XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

• 






• 
• 




THIS 


IS THE INTRPT RTN 






•xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


08 1C 


0000 


•UIO 


DC 





AREA CODE STORAGE 


0810 


0000 


MTI 


DC 







081E 


1010 




SLA 


16 


CLEAR INT SW 


08 IF 01 


04000A0B 




STO L 


INT 




0821 


COOE 




LD 


MTDSW 


GET SNS FNC 


0822 


FOOF 




EOR 


ACMT 


SET AREA CODE 


0823 


DOOO 




STO 


MTOSW+l 


SAVE 


0824 


080B 




XIO 


MTDSW 


SENSE-NO RESET 


0825 


COOB 




LO 


MTOSW-U 


GET IOCC 


0826 


rooc 




EOR 


ONE 


SET BIT 15 


0827 


0009 




STO 


MTOSW+l 


SAVE 


0828 


0807 




XIO 


MTDSW 


SENSE - RESET 


0829 


DOOA 




STO 


LSDSW 


SAVE SENSE WO 


082A 


EOOA 




AND 


MTIXO 


CK FOR LEGAL 


082B 01 


4C180836 




BSC L 


MTI03.+- 


BRANCH « ILLEGAL 


0820 01 


4C80081D 


NTI04 




BSC I 


MTI 


EXIT i 






• 

* 




CONSTANTS 


0830 


0000 




BSS E 







OATE 


01MAV66 


04N0V66 






EC NO. 


415120A 


415233 









IE 
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8OB0O00O 

B 0800010 

80BO0020 

80300030 

80B00040 

80B00050 

80B00060 

8OB0O070 

80B00080 

80B00090 

80B00100 

BOBOOUO 

80B0O12O 

80B00130 

80B00140 

80B00150 

80B00160 

80B00170 

80B00180 

BOB00190 

80B00200 

80B00210 

80B00220 

80B00230 

80e00240 

80B00250 

80B00260 

80B00270 

80B00280 

80B0n?90 

80B00300 

80B00310 

80BOO32O 

80B00330 

80B00340 

80B00350 

80B00360 

80B00370 

80B00380 

80B00390 

80B00400 

80B00410 

80B00420 

80B004 30 

8 OB 00440 

80B00450 

80B00460 

80B00470 

80B00480 

80B00490 

80BOO5OO 

8OBO0510 

B0B00520 

80B00530 

80B00540 

80B00550 

80B00560 

80B00570 

80B00580 

B0B00590 

80B00S00 

80B00610 

80B00620 

S0BOO630 

80B00640 

80B00650 

80B00660 

80B00670 
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IBM MAINTENANCE DIAGNOSTIC PR03RAN FOR THE 1800 SYSTEM 
2400 INTERCHANGEABILITV ANO SKEW FUNCTION TEST 



0830 

0831 



0700 
0000 



0832 0000 

0833 0001 

0834 0000 

0835 3040 



0836 C002 

0837 0001 
OB38 70F4 
0839 1 083A 



083A 
083B 
083C 
083 
083 E 00 
0840 01 
0842 
0843 
0844 
0845 01 
0847 
















C0F7 

100A 

180F 

000 1 

65000000 

44000B7F 

E001 

0001 

1010 

D5000858 

7048 



0848 

0849 

084 A 
0B4B 01 
084 D 
084 F 
084 F 
08EI 01 
0853 01 
08S5 01 





01 



0000 

630C 

1010 

D7000857 

73FF 

70FC 

D4000A0B 

6500086C 

6D000809 

4C800848 



0857 
0858 
0859 
OBsA 
085B 
085C 
085D 
085 E 
085F 
0860 
0861 
0862 
0863 



3F3F 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



0864 0000 
0"65 01 4400 OB 70 
0667 01 4C8 00864 



DC 
DC 



NTOSW DC 
DC 

ACMT 
ONE 
LSOSW DC 
MTIXO OC 

• 

MTI03 LO 
STO 
MOX 

MTI XI OC 

• 

MTI05 LO 
SLA 
SRA 
STO 

MTI 06 LDX 
BSI 
DC 
DC 
SLA 
STO 
MDX 
XXXXXXXXXX 



/0700 




1 


/3040 



SENSE IOCC 



AREA COOE 
CONSTANT 1 
SENSE WO STORAGE 
LEGAL INT CK 



NO LEGAL BIT ON 

MTI XI GET RETURN 

MLSCF SET 

MTI04 GO EXIT 

MII05 ENTRY TO SET 

RETURN ON ILLEGAL 



LI 

L 



ACMT 

10 

IS 

MTI06*l 



MER 

/E001 

/0001 

16 
LI TAPEO 

MON07 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

INITIALIZATION ROUTINE 



GET AREA CODE « MOD 
SAVE BIT 10 

SET 

IX 1 « TAPE DR 

PRINT 

ERR El 

FORM 1 

TERMINATE THIS DR 



SRC 



XXXX) 
MTRST 



xxxxxxxx 

OC 
LDX 3 

SLA 
RST1 STO L3 
MDX 3 
MDX 
STO L 
LDX LI 
STX LI 
BSC I 

PATC 

TAPEO 

TAPE1 

SRSCT 

RECRO 

UR<0 

RWR 

URWR 

PRPSS 

WRCT 

RDCT 

RDSW 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 





12 

16 

TAPEO-1 

-1 

RST1 

INT 

MO NO 3 

MLSCF 

MTRST 



CLEAR ALL CTS ♦ SWS 



SE 



DC 
DC 
OC 

r>c 

OC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
XXXXXXXX 



SET RETURN 

EXTT 

CONSTANTS 

PATTERN CONSTANT 
DR AREA CODE 
DR 1 AREA CODE 
SERIES COUNT 
REC R. CT 
UNREC RO CT 
REC WT CT 
UNREC WT CT 
PROG PASS CT 
WRITE CT 
READ CT 
REAO SW 



SX 



D*TE 



NO. 



!15tttt 



• XXXX 

♦XXXXXXXXXXXX 

MTENO OC 

BSI L 
BSC I 

•XXXXXXXXXXXX 



04JJ0VJ6 



/3F3F 













XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

PROGRAM ENO RTN 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SE 

RLDEV RELEASE DEVICE SRC 

MTENO EXIT SX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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80B00680 

80B00690 

80B00700 

80B00710 

80B00720 

80B00730 

80B00740 

80B00750 

80B00760 

8CB00770 

80B00780 

80B00790 

80B00800 

80B00810 

80B00820 

80B00830 

80B00B40 

80B00850 

00800660 

80B00870 

80B00880 

80B00890 

80B00900 

80B00910 

80B00920 

80B00930 

80B00940 

80B00950 

80 B 00960 

80B00970 

30B00980 

8CB00990 

80B01000 

80B01010 

B0B01020 

80R01030 

80B01040 

80B01050 

80B01060 

8OB01070 

80B01080 

80B01090 

80B01100 

80BC1110 

80B01120 

80B01130 

80B01140 

80B01150 

80B01160 

80B01170 

80B01160 

80B01190 

80B01200 

80B0121O 

80B01220 

80B01230 

80B01240 

80B01250 

80301260 

80B01270 

80B01280 

80B01290 

B0B01300 

80B01310 

80B01320 

80B01330 

80B01340 

80B01350 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
2400 INTERCHANGEABILITV ANO SKEW FUNCTION TEST 



CALL FOR EDIT 



0869 00 448001 2C 
086B 1 07FF 



*xxxxxxxx>xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
a********************************************* 

MTBEG BSI I BEGIN GO TO MONITOR * 

OC PID » 

eft******************************************** 

•xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

* SUPERVISOR RTN 

♦xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



086C 01 


440008 5F 


«ON03 


BSI 


L 


RODEV 


REQUEST DEVICE 


086E 01 


CC0009BE 




LOD 


L 


RTNO 


SET RTN » 


0870 


088F 




STD 




RID 




0871 


C0E5 




LO 




PATC 


RESTORE PATTERN 


0872 01 


0400097B 




STO 


L 


PATT 




0874 


C08F 




LD 




SW2 


GET SU FNC 2 


0875 


4828 




BSC 




♦ Z 


IS DRIVE TO BE RUN 


0876 


7007 




MDX 




M0N05 


NO 


0877 


6100 




LDX 


1 





SET OR IXING 


0878 


C0A3 




LO 




MTIO 


GET AREA COOE 


0879 


OODE 




STO 




TAPEO 


SAVE 


087A 01 


44000902 




BSI 


L 


SNDSW 


SENSE DEVICE 


087C 


4804 




BSC 




E 


IS OR READY 


0870 


7020 




MDX 




M0N08 


NO 


087E 


C094 


H0N05 


LD 




EOIT+l 


GET OR 1 AVAIL SM 


087F 


4820 




BSC 




2 


IS DR 1 AVAIL 


0880 


7000 




MDX 




MON06 


NO 


0881 01 


C 4000804 




LO 


L 


SW2 


GET SU FNC 2 


0883 


1001 




SLA 




1 




0884 


4828 




BSC 




♦ Z 


IS DR 1 TO BE RUN 


0885 


7008 




MDX 




M0N06 


NO 


0886 


C095 




LO 




MTIO 


GET AREA CODE 


0887 


F024 




EOR 




MOD 


SET BIT 10 


0888 


0000 




STO 




TAPE1 


SAVE 


0869 


6101 




LDX 


1 


1 


SET OR 1 IXING 


088A 01 


44000902 




BSI 


L 


SNDSW 


SENSE DRIVE 


088C 


4804 




BSC 




E 


IS OR 1 READY 


0880 


7017 




MDX 




MON09 


NO 


088E 01 


44000B70 


MOV 06 
• 
MOM 07 


BSI 


L 


RLDEV 


RELEASE DEVICE 


0890 


C0C7 


LD 




TAPEO 


GET DR A. C. 


0891 01 


4C1808AD 




BSC 


L 


M0N10,*- 


IS LOC CLEAR 


0893 


6100 




LOX 


1 





NO SET OR IXING 


0894 


D090 


N0N11 


STO 




ACMT 


SET CURRENT A. C. 


0895 01 


C 4000603 




LD 


L 


SHI 


GET SW FNC 1 


0897 


100E 




SLA 




14 




0898 


4810 




BSC 




- 


IS LOOP RO SU ON 


0899 


7021 




MOX 




M0N13 


NO 


089A 


C098 




LO 




ONE 


GET 0001 


089B 01 


DS000862 




STO 


LI 


RDSH 


SET RD SU 


0890 


7010 




MDX 




M0N13 


START PROGRAM 



089E 01 


44000B7B 


M0N08 BSI 


MLG 


08 A 


COOO 


DC 


/COOO 


08 A 1 


0000 


OC 


/OOOO 


08 A2 


1010 


SLA 


16 


08A3 


0064 


STO 


TAPEO 


08A4 


7009 


MDX 

• 
• 
• 


M0N05 


ITno. 


UStttt 


• 





DRIVE IS SELECTED BUT 
IS NOT READY 

PRINT 

ID - CO 

FORM 

CLEAR DR A. C. 



DRIVE 1 IS SELECTEO BUT 
IS NOT REAOY 
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80B01360 
80B01370 
80601380 
80B01390 
80601400 
80601410 
80B01420 
B0B01430 
80B01440 
BOB01450 
80601460 
80601470 
80B01480 
SRC 80B01490 
80B01500 
80B01510 
80B01520 
80B01530 
80B01540 
80B0J550 
80B01560 
80B01570 
80B01580 
80801590 
SRC 80601600 
80901610 
80801620 
80601630 
B0B01640 
80B01650 
80601660 
80B01670 
80B01680 
80B01690 
80601700 
80601710 
80601720 
80601730 
SRC 80B01740 
80601750 
80601760 
SRC 80601770 
80B01780 
80B01790 
80601800 
80B01810 
80B01820 
60601830 
80B01840 
80B01850 
80601660 
80B01870 
80601880 
80601890 
80601900 
80601910 
60601920 
80B01930 
SRC 60B01940 
80B01950 
B0B01960 
80601970 
80B01980 
80601990 
80B02000 
80602010 
80B02020 
80B02030 
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f' 





(' 
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PROG 
PAGE 



ID 



080B-0 
2 
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08A5 01 


44000B7B 


nam 


BSI 


L 


MLG 


PRINT 


08A7 


C001 




DC 




/C001 


10 CI 


08 A 8 


0000 




OC 




/OOOO 


FORM 


0BA9 


1010 




SLA 




16 


CLEAR OR 1 A. C. 


08AA 


DOAE 




STO 




TAPE1 




08AB 


70E2 


• 
• 
• 

* 


MDX 




MONO* 












CONSTANTS 


08AC 


0020 


• 

MOD 

* 
• 
* 


DC 




/0020 

SET 


OR 1 MODIFIER 
TO DRIVE 1 


08AD 


COAB 


MOM 10 


LD 




TAPE1 


GET DR 1 AREA COOE 


OftAE 01 


4C1808B2 




BSC 


L 


M0N12,*- 


BRANCH IF CLEAR 


08B0 


6101 




LDX 


1 


1 


SET IXlNG-DR 1 


08B1 


70E2 




MDX 




HON 11 




08B2 01 


7401085F 


M0N12 


MDX 


L 


PRPSS.l 


INCR PROG PASS CT 


08 B4 


1000 




NOP 








08B5 01 


44000676 




BSI 


L 


MLG 


PRINT 


08B7 


D001 




OC 




/0001 


ID D 1 


08B8 


0005 




DC 




/0005 


FORM 5 






***********.******** ************************* 


08B9 00 


4Cl)0012E 




BSC 


I 


END 


TERMINATE PRDGRAM 






******************************************** 


08BB 


63F8 


M0N13 


LDX 


3 


-8 




08BC 01 


C700081C 


MOMAB 


LD 


L3 


EOIT+10 


GET AN EDIT WO CT 


08BE 01 


4C1808C2 




BSC 


L 


MONAA ,*~ 


BRANCH IF CLEAR 


08C0 01 


D7000986 




STO 


L3 


VRWC+8 


SET NEU WO CT 


08C2 


7301 


MONAA 


MOX 


3 


1 


OECR IX 3 


08C3 


70F6 




MDX 




MONAB 


LOOP 


08C4 01 


C5000862 


M0N30 


LO 


LI 


ROSU 


GET READ SW 


0BC6 01 


4C200946 




BSC 


L 


M0N25.Z 


BRANCH IF SET 


08C8 01 


CC0009BA 




LOD 


L 


RTN1 


SET RTN « 1 


08CA 01 


DC000800 




STD 


L 


RIO 




08CC 01 


44000986 




BSI 


L 


RUO 


REWIND OR 


08CE 01 


C4000805 




LD 


L 


SW3 


GET SW FNC 3 


08D0 01 


4C1808D4 




BSC 


L 


M0N15t*- 


BRANCH IF ZERO 


0602 01 


0400097B 




STO 


L 


PATT 


SET AS PATTERN 


08D4 00 


670003E9 


HON 15 


LOX 


L3 


1001 


1X2= LNGTH I/O AR 


08C6 01 


C400097B 




LO 


L 


PATT 


GET PATTERN 


08D8 01 


07000C11 


HON 16 


STO 


L3 


IOA-1 


SET I/O AREA 


080 A 


73FF 




MOX 


3 


-1 


DECR IX 3 


ORDB 


70FC 




MDX 




N0N16 


LOOP 


080C 


62F8 


M0N17 


LOX 


2 


-8 




0800 01 


C6000986 


M0M18 


LD 


L2 


VRWC+8 


GET WD CT 


08DF 01 


F400097C 




EOR 


L 


NOENO 


SET BIT 1 


08E1 01 


04000C12 




STO 


L 


I0A 


SET IN I/O AREA 


08E3 01 


44000AEE 




BSI 


L 


HRT 


GO WfvITE 


08E5 


7201 




MDX 


2 


1 


ARE ALL WO CTS USED 


08E6 


70F6 




MDX 




M0N18 


NO 


08E7 01 


7401085A 




MDX 


L 


SRSCT, 1 


INCR SERIES CT 


08F9 01 


C4000B5A 




LO 


L 


SRSCT 


GET CT 


08EB 01 


9400097D 




S 


L 


K500 


SUB 500 


OPED 01 


4C2008DC 




BSC 


L 


M0N1T.Z 


BRANCH « NOT DONE 


CBEF 01 


D40008 5A 




STO 


L 


SRSCT 


CLEAR SERIES COUNT 


08F1 01 


C4000803 




LD 


L 


SHI 


GET SU FNC 1 


08F3 


100F 




SLA 




15 




08F4 


4828 




BSC 




♦ Z 


IS LOOP WRT SW ON 


08F5 


70C5 


* 


MDX 




HON 13 


YES 






• 
* 






CHECK INTERCHANGEABILITV 


. BF6 01 


C400O802 




LO 


L 


SUO 


GET SW FNC '' 


08FB 


1008 




SLA 




• 




08F9 


4810 




BSC 




— 


IS SW ON 


EC NO. 


01MAY66 
415120A 


StS?*! 6 









SW 
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SRC 80602040 
80602050 
80602060 
80B02070 
80602080 
80B02090 
80B02100 
B0B02U0 
80602120 
80802130 
80B02140 
80602150 
80602160 
60602170 
80B021B0 
80602190 
80B02200 
80802210 
B0B02220 
80B02230 
80B02240 

SRC 80B02250 
80B02260 
80B02270 

* 80B02280 

* 60602290 

* 80802300 
80B02310 
BOB02320 
80B02330 
60B02340 
80B02350 
80B02360 
80B02370 
80B023BO 
8OB02390 
80602400 

SRC 80B02410 
80B02420 
80602430 
80B02440 
80B02450 
80B02460 
80B02470 
30602480 
80602490 
80B02500 
80602510 
80B02520 
80B02530 

SRC 80B02540 
80602550 
80B02560 
80B02570 
80802560 
80B02590 
80B02600 
80B02610 
80602620 
60602630 
80602640 
80B02650 
80602660 
80802670 
80B02680 
80602690 
80B02700 
80B02710 
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PAGE 



080B-0 
2A 



II .1 I'. II 



1) II 






II I) II II I 



F 
L 
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08FA 7050 



OBFB 01 
08FD 01 
08FF 01 

0901 

0902 

0903 

0904 01 
0906 01 
0908 01 
090A 01 
090C 
0900 
090E 



090 F 
0910 01 
0912 01 
0914 01 
0916 



C 4000833 

05000862 

44O009C 1 

7100 

700C 

1010 

D4000858 

C 4000659 

4C200890 

44000B7B 

C002 

0000 

7008 



1010 

04000859 

C4000858 

4C20089C 

70F3 



0917 01 

0919 01 
091B 
091C 
0910 
091 E 01 

0920 01 
0922 01 
0924 
092 5 
0926 
0928 
0929 
092 A 01 
092C 
0920 
092E 
092 F 
O930 01 
0932 01 
0934 01 
0936 01 

0938 

0939 
093A 







01 













4400 OB 5 F 

C4000804 

4828 

7009 

6100 

C400081C 

04000858 

440009D2 

4804 

7015 

C4000813 

4820 

7010 

C4000804 

1001 

4828 

7018 

6101 

C400081C 

F40008AC 

04000859 

44000902 

4804 

7001 

700C 



093B 01 
0930 
093E 01 
0940 01 
0942 01 
0944 1 



44000B70 

1010 

04000858 

04000C59 

4400 084 B 

0917 



0945 OP 4C800120 



0947 01 44000B70 
0949 01 4C000B90 



K TE 



NO. 



mutt 



MOX 

ID 
STO 
SSI 
MOX 
MOX 
SLA 
STO 
LO 
BSC 
M3V20 BSI 
OC 
DC 
MOX 

N0N19 SLA 
STO 



MON25 NO 

INTERCHANGEABILITY SW IS ON 



L ONE 

LI RDSW 

L RWDU 
1 

M0N19 
16 

L TAPEO 

L TAJ>E1 

L M0N07.Z 

L MLG 
/C002 
/OOOO 
M0N21 



GET 1 

SET READ ONLY SW 

REWIND-UNLOAD 

WAS THIS OR 

NO 

CLEAR OR A. C. 

GET OR 1 A. C. 

BRANCH « RUN OR 1 
LOG-MAKE DRS READY 
ID - C2 
FORM 



SRC 



SRC 



RUN WAS ON OR 1 



16 

TAPE1 

TAPEO 

M0N07.Z 

M0N20 



CLEAR OR 1 A. C. 

GET OR A. C. 

BRANCH IF NOT CLEAR 



WAIT TILL ORS ARE READY 



SW 



LO 

BSC 

MOX 

N0M21 BSI 

LO 
BSC 
MDX 
LOX 
LO 
STO 
BSI 
BSC 
MDX 
M3H22 LO 
BSC 
MDX 
LO 
SLA 
BSC 
MOX 
LOX 
LD 
EOR 
STO 
BSI 
BSC 
MDX 
MDX 

MON23 BSI L RLDEV 

SLA 16 

STO L TAPEO 

STO L TAPE1 

BSI L STPST 

OC M0N2I 
• •••••**••* •*»»•»♦»*»»»*»♦*»»**»*»* „,*»m»„^ 

BSC I START GO TO MONITOR • 

****»•*•**»**••••»••*•**»•**»*»»»*»*♦*»**»«#*» 



L RODEV 
L SW2 
♦ Z 

MON22 
1 
L MTIO 
L TAPEO 
L SNDSW 
E 

M0N23 
L EDIT»1 
Z 

M0N24 
L SW2 
1 

+ Z 

M0N24 
1 1 
L MTIO 
L MOO 
L TAPE1 
L SNDSW 
E 

MON23 
M0N24 



REQUEST DEVICE 

GET SW FNC 2 

IS DR SEL 

NO 

SET IXING DR 

GET AREA COOL 

SAVE 

SENSE DRIVE 

IS OR READY 

NO 

GET DR 1 AVAIL 

IS OR 1 AVAIL 

NO 

GET SW FNC 2 

IS DR 1 SEL 
NO 

SET IXING DR 1 

GET AREA CODE 

SET BIT 10 

SAVE 

SENSE DP.IVF 

IS OR READY 

NO 



SRC 



SRC 



SRC 



DRIVE IS NOT READY 

RELEASE DEVICE 
CLEAR AREA CODES 



SET MLSCF 



SRC 



M0V24 BSI 
BSC 



ft??!! 6 



RLOEV 

M0N07 



RELEASE DEVICE 
GO REAO 



SRC 



80B02720 

80B02730 

80B02740 

80B02750 

80B02760 

80B02770 

80B02780 

80B02790 

80B028O0 

80B02810 

80B02820 

80B02830 

B0B02R40 

80B02850 

80B02860 

80B02870 

80B02880 

80B02890 

80B02900 

80B02910 

80B02920 

80B02930 

80B02940 

80B02950 

80B02960 

80BC2970 

80B02980 

80B02990 

80B03000 

80B03010 

80B03020 

80B03030 

80B03040 

80B03050 

B0B03060 

80B03070 

80B030B0 

80B03090 

80B03100 

80B03110 

60B03120 

80B03130 

80B03140 

80B03150 

80B03160 

80B03170 

80B03180 

80B03190 

80B03200 

80B03210 

80B03220 

80B03230 

80B03240 

80B03250 

80B03260 

80B03270 

80B03280 

80B03290 

80803300 

80B03310 

80B03320 

80B03330 

80B03340 

80B03350 

80B03360 

80B03370 

80803380 

B0B03390 



PROG ID 
PAGE 



•XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



080B-0 
3 



o 



094B 
094C 
094 D 01 
094F 01 
0951 01 
095 3 01 

0955 

0956 00 

0958 

0959 01 
095B 
095C 
095D 01 
095F 

0960 01 
0962 01 
0964 
0965 
0966 
0968 01 
096A 
096B 01 
0960 01 
096F 01 
0971 
0972 
0973 
0974 
0975 01 
0977 01 
0979 01 










o 

01 










403A 
C86F 

DC000800 

C4000805 

4C 180955 

D400097B 

62F8 

670003E9 

1010 

D7000C11 

73FF 

70FC 

C6000986 

F01C 

D4000C12 

44000AOC 

7201 

70F0 

7401 08 5A 

C400085A 

9012 

4C 200955 

0400085A 

C4000803 

100E 

482 8 

7005 

1010 

D 5000818 

05000862 

4C000890 



097B 





3F3F 


097C 





4000 


0970 





01F4 


097E 





OOOA 


097 F 





0028 


0980 





0040 


0981 





0080 


0982 





0100 


0983 





0200 


0984 





02BC 


0985 





03E8 



09 86 


0000 


0987 


40S0 


0988 


1803 


0989 


4804 


098A 


7016 


098B 01 


CS00085B 


0980 


F026 


098E 


0026 


098F 


0030 


0990 01 


04000AOB 


eTnO. 


01MAY66 
4I5120A 



♦xxxxxxxxxxxx 

M0N25 BSI 

100 

STO 

LO 

BSC 

STO 
MDN27 LOX 
M3N28 LOX 

SLA 
M0N26 STO L3 
MOX 3 
MOX 
M0Y29 LD 
EOR 
STO 
BSI 
MDX 
MDX 
MDX 
LD 
S 

BSC 
STO 
LD 
SLA 
BSC 
MOX 
SLA 

STO LI 
STO LI 
MC '31 BSC L 

PATT OC 
NOENO OC 
K500 OC 
Vflt,C OC 

OC 

OC 

DC 

OC 

OC 

DC 

DC 
XXXXXXXXXXXX 



L 
L 

L 
L 

2 
L3 



L2 

L 
L 



L 
L 

L 
L 
L 



xxxxxx 

RWD 

RTN2 

RIO 

SW3 

M0N27 

PATT 

-8 

1001 

16 

IOA-1 

-1 

M0N26 

VRWC + 

NOEND 

IOA 

RO 

1 

M0N28 

SRSCT 

SRSCT 

K500 

M0N27 

SRSCT 

SW1 

14 

♦ Z 

M0N31 

16 

TAPEO 

ROSW 

MON07 



READ PORTION OF PROG 

xxxxxxxxxxxxxxxxxxxxxxxxxxx 

REWIND DR SRC 

SET RTN • 2 

GET SW FNC 3 
.♦- BRANCH IF ZERO 
SET AS PATTERN 
IX 2 ' NO WO CTS 



CLEAR I/O AREA 
DECR IX 3 
LOOP 
8 GET A WO CT 
SET BIT 1 
SET IN I/O AREA 
GO REAO SRC 

ARE ALL WO CTS USED 
LOOP 
1 INCR SERIES CT 
GET CTR 
SUB 500 
Z BRANCH * NOT DONE 
CLEAR SERIES CTR 
GET SW FNC 1 

IS LOOP RO SW ON 

YES 

CLEM ACCUM 

CLEAR A. C. 

CLEAR REAO SW 

CK FOR DONE 



CONSTANTS 



/3F3F PATTERN 

/4000 NO END TBL INT BIT 

500 CONSTANT 500 

10 WO CT FOR REC 1 

40 2 

64 3 

128 * 

256 5 

512 6 

700 7 

1000 g 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
COMMON REWIND RTN 

XXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXX 

wo 



OC 









BSI 




CKBSY 


CK FOR BUSY 


SRA 




3 




BSC 




E 


IS DR AT LO PT 


MDX 




RWD02 


YES 


LO 


LI 


TAPEO 


GET AREA CODE ♦ 


EOR 




RWOFN 


SET FUNCTION 


STO 




RWDFN+1 


SAVE 


STO 




LSTFN 




STO 


L 


INT 





SE 
SRC 



MOD 



ram* 



80B03400 

80B03410 

8CB03420 

80B03430 

80B03440 

80B03450 

80B03460 

80B03470 

80B03480 

80B03490 

80B03500 

80B03510 

80B03520 

80B03530 

80B03540 

80B03550 

80B03560 

80803570 

80B03580 

80B03590 

80B03600 

80B03610 

80B03620 

80B03630 

80B03640 

80B03650 

80B03660 

80B03670 

80B036B0 

80B03690 

80B03700 

80B03710 

80B03720 

80B03730 

80B03740 

60BC3750 

80B03760 

80B03770 

80B03780 

80B03790 

8CB03800 

B0BO381O 

80B03820 

80303830 

80B03840 

80B03850 

80B03860 

B0B03870 

80B03880 

80B03890 

80B03900 

80B03910 

B0B03920 

80B03930 

80B03940 

80803950 

80B03960 

80B03970 

80B03980 

80B03990 

80B04000 

80B04010 

80B04020 

80B04030 

80B04040 

80B04050 

80B04060 

80B04070 
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0992 01 


44000B5F 


BSI 


L 


RQDEV 


REQUEST DEVICE 


SRC 


80B04080 


0994 


081F 


XIO 




RWOFN 


ISSUE REWIND 




8CB04090 


0995 


4052 


BSI 




CKBSY 


CK FOR BUSY 


SRC 


80B04100 


0996 01 


44000B70 


BSI 


L 


RLOEV 


RELEASE OEVICE 


SRC 


80B04110 


0998 01 


44000902 


1WD0I BSI 


I 


SNDSU 


SENSE OR 


SRC 


80B04120 


099A 


1801 


SRA 




1 






80B04130 


0998 


4804 


BSC 




E 


IS OR BUSY 




80B04140 


099C 


70FB 


MDX 




RW001 


YES 




80B04I50 


0990 


1802 


SRA 




2 






80B04160 


099E 


4804 


BSC 




E 


IS OR AT LD PT 




80B04170 


099F 


7001 


MOX 




RWD02 


YES 




80B04180 


09A0 


70F7 


MOX 

* 




RWD01 


NO 




80B04190 
80B04200 


09A1 01 


4C800986 


RH002 BSC 


; 


RWO 


EXIT 


SX 


80B04210 






•xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


80B04220 






• 










80B04230 






• 




COMMON BACKSPACE RTN 




SOB 04240 






• 










80B04250 






*xxxxxxxxxx>:xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


80B04260 


09A3 


0000 


BSP OC 









SE 


80B04270 


09 A * 


4043 


BSI 




CKBSY 


CK FOR BSY 


SRC 


80B04280 


09A5 01 


C 500085 8 


ID 


11 


TAPED 


GET AREA CODE 




80B04290 


09A7 


FOOE 


EOR 




BSPFN 


SET FUNCTION 




80B04300 


09A8 


OOOE 


STO 




BSPFN+1 


SAVE 




80B04310 


09A9 


0016 


STD 




LSTFN 






BOB04320 


09AA 01 


04000A08 


STO 


I 


INT 






80B04330 


09AC 01 


44000B5F 


BSI 


L 


RQDEV 


REQUEST DEVICE 


SRC 


80B04340 


09AE 


0807 


XIO 




BSPFN 


ISSUE BSP 




80B04350 


09AF j 


4038 


BSI 

* 




CKBSY 


CK BUSY 


SRC 


S0B04360 
80B04370 


09B0 01 


44000B70 


BSI 


L 


RLOEV 


RELEASE DEVICE 


SRC 


80B04380 


09B2 01 


4C8009A3 


BSC 

• 


I 


BSP 


EXIT 


SX 


80B04390 
SOB04400 






* 




CONSTANTS 




80B04410 






• 










80B04420 


09B4 


0000 


BSS 


E 









80B04430 


09B4 


0404 


RWOFN OC 




/0404 


REWIND IOCC 




80B04440 


09B5 


0000 


OC 

* 











S0B04450 
80B04460 


09B6 


040B 


BSPFN DC 




/040B 


BACKSPACE IOCC 




80B04470 


09BT 


0000 


DC 

• 











SOB 044 80 
80B04490 


09B8 


0400 


RWUFN OC 




/0400 


REWIND UNLOAD IOCC 




80B04500 


09B9 


0000 


OC 

* 











80B04510 
80B04520 


09BA 


0001 


RTN1 OC 




/0001 


RTN FOR WRT PORTION 




80B04530 


09BB 1 


0804 


DC 

• 




M0N15 






80804540 
80B04550 


09E*. 


0002 


RTN2 DC 




/0G02 


RTN FOR READ PORTION 




80B04560 


09B0 1 


0948 


DC 

* 




M0N25 






80B04570 
80B04580 


09BE 


0000 


RTNO DC 




/oooo 


RTN FOR SUPV RTN 




80B04590 


09BF 1 


086C 


DC 

• 




M0N03 






80B04600 
80B04610 


09C0 


0000 


LSTFN OC 







LAST FNC ISSUED 




B0B04620 






•XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 




80B04630 






• 










80B04640 






• 




REW1 


NO UNLOAD RTN 




80B04650 






• 










80B04660 






•XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 




B0B04670 


09C1 


0000 


RMOU DC 









SE 


80B04680 


09C2 


4025 


BSI 




CKBSY 


CHECK BUSY 


SRC 


80B04690 


09C3 01 


C500085B 


ID 


LI 


TAPEO 


GET AREA CODE 




80804700 


09C5 


F0F2 


EOR 




RWUFN 


SET FNC 




80B04710 


09 C 6 


D0F2 


STO 




RWUFN+1 


SAVE 




80804720 


09C7 


OOFS 


STO 




LSTFN 




.'• 


80804730 


09C8 01 


D4000A09 


STO 

• 


L 


INT 




r' 


80B04740 
80B04750 


B T NO. 


mm 


xmr 










KB l0 



<.' 


-' 








r 














"t 



I ) 



oeoB-o 

4 



r i 

r "> 

n 
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09CA 01 440008 5* 
09CC 08EB 
09C0 401A 

09CE 01 44000670 
09D0 01 4C8009C1 









0902 
09D3 01 
09 D5 
0906 
-09D7 
09D8 
0909 01 
0906 
09 DC 
0900 
090E 
09DF 
09E0 
09E1 












09E2 01 



09E4 
09E4 
09E5 
09E6 
09E7 



09E8 
09E9 
09EA 
09EB 
09EC 
09E0 01 
09EF 
09F0 
09F1 
09F2 
09F3 
09F4 01 



0000 

C5000858 

FOOE 

DOOE 

6302 

080B 

070009E5 

73FF 

70FB 

C009 

F007 

4820 

70F6 

C004 

4C8009D2 









09F6 
09F7 
09F8 
09F9 01 
09FB 
09FC 
09FE 
09FF 
OAOO 
0A01 
OA03 01 
0A05 01 
OA07 1 



01 







01 



0000 
0700 
0000 
0000 
0000 



0000 

40E8 

1801 

4804 

7009 

74000A0B 

7006 

1010 

0018 

D018 

C0F2 

4C8009E8 

C014 

4818 

700C 

740A0A0A 

7009 

44000B7F 

E002 

0002 

1010 

05000656 

4C 00 0890 

4400064 r . 

09E9 



0A06 00 4C80012D 



8SI L RQDEV 
XIO RWUFN 
BSI CKBSY 

BSI L RLOEV 

BSC I RWDU 



REOUEST DEVICE SRC 
ISSUE REWIND UNLOAD 
CHECK FOR BUSY SRC 



RELEASE OEVICE 
EXIT 



•XXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



SRC 
SX 



SENSE DRIVE ROUTINE 



•XXXXXXXXXXXXJCXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



SNDS1 
SNDS2 



SNDSW DC 
LO 
EOR 
STO 
LOX 
XIO 
STO 
MDX 
MDX 
LD 
EOR 
BSC 
MOX 
LD 
BSC 

BSS E 

DSWFN DC /0700 

OC 
DSWXO OC 

DC 
♦XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

* CHECK BUSY ROUTINE 

♦XXX XXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXX 



SE 





LI TAPEO GET AREA CODE 

DSWFN SET FNC 

DSMFN+1 SAVE 

3 2 SET FOR DOUBLE SENSE 

DSWFN ISSUE SENSE 

L3 OSWXO-l SAVE WO 

3 -1 DECR IX 3 

SN0S2 LOOP 

DSWX0»1 GET FIRST WD 

OSWXO COMPARE WITH SECOND 

Z IS DM FULLY SELECTED 

SNDS1 NO-SENSE AGAIN 

OSWXO GET SENSE WO 

I SNDSW EXIT SX 

CONSTANTS 



SENSE OSW IOCC 
STORAGE 



CKBSY DC 
CKBSO BSI 
SRA 
BSC 
MOX 
MOX 
MDX 
SLA 
STO 
STO 
LO 
BSC 

CKBS1 



LI 

L 
L 





SNDSW 

1 

E 

CK6S1 

INT.O 

CKBS1 

16 

BSYCT 

INT 

OSWXO 

CK6SY 

INT 

♦- 

CK6S2 

BSYCT, 10 

CKBS2 

MER 

/E002 

• 0002 

16 

TAPEO 

M0N07 

STPST 

CKBSO 



SENSE DRIVE 

IS DM BUSY 
YES 

HAS INT OCCURRED 

NO 

CLEAR BUSY COUNT 

CLEAR INTRPT SW 

C-ET OSW 

EXIT 



SE 
SRC 



SX 



LD 
BSC 

MDX 

MOX 

MDX 

BSI 

DC 

DC 

SLA 

STO 

esc 

CKBS2 BSI 
DC 

********************************************** 
BSC I START GO TO MONITOR * 



HAS AN INT OCCURRED 

YES 

BUSY TOO LONG 

NO 

PRINT LOST INTRPT 

10 E 2 

FORM 2 

TERMINATE THIS OR 



SET MLSCF 



SRC 



e$ t no. list-rot mm* 
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80B04760 

B0B04770 

60B04760 

60604790 

80604800 

60604810 

80804820 

80804830 

80B04640 

80B04850 

80B04860 

80B04B70 

80B04660 

80804890 

80804900 

80B04910 

80B04920 

80B04930 

80B04940 

80B04950 

80 P 04960 

80B04970 

80B04980 

80B04990 

80B05000 

80B05010 

80805020 

80B05030 

80B05040 

80B05O5O 

80B05060 

80B05070 

80B05080 

80B05090 

80B05100 

80B05110 

80B05120 

80B05130 

80B05140 

80805150 

80B05160 

80805170 

80BC5180 

80B05190 

80B0520O 

80B05210 

80805220 

80B05230 

80B05240 

80B05250 

80B0S260 

80805270 

80B05260 

80805290 

80B05300 

80B05310 

80B05320 

80B05330 

80B05340 

80BO5350 

80B05360 

80B05370 

80B05380 

80805390 

80B05400 

80B05410 

80805420 

60B05430 
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OAOA 
OAOB 



OAOC 
OAOD 
OAOE 
OAOF 
0A11 01 
0A13 
0A14 01 
0A16 01 
0A18 
0A19 
OAIA 
0A1B 01 
OA10 01 
0A1F 
0A20 
0A21 






01 









0000 

oooo 



0000 

40DA 

1010 

D4000A01 

D4000AD2 

1010 

D4000A05 

C 500085 8 

FOOD 

DOOF 

DO A 5 

D4000AOB 

440008 5F 

0808 

40C7 

TOO* 



0A22 
0A2 3 
0A2* 
0A2 5 
0A26 
0A28 
0A28 1 
0A29 



2FB3 
3FCF 
2C03 
OOFF 
0602 
0000 
0C12 
0000 



OA?A 01 44000670 
OA?C 01 C4000A02 
042 E 01 4C200AC2 
CA3 01 C 4000661 
OA32 01 84000833 
0A34 01 04000861 



0A36 01 C 400 08 34 

OA38 E0E9 

OA39 C 4820 

0A3A 703C 



0A3B 01 
OA30 01 
0A3F 
0A40 01 
OA42 01 
0*44 
0A45 00 
0A47 01 
0A49 01 
0A4B 
0A4C 
0A4D 01 
0A4F 01 
0A51 01 
0AS3 01 








C4000AEO 

D4000ADF 

1010 

96000986 

84000833 

0001 

6 7000000 

C4000AEB 

86000986 

0010 

1010 

04000AD3 

C400097B 

04000AD4 

7401CAD3 



SVCT OC BUSY COUNT 

NT DC INTRPT SM 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



xxxx 
RD 



ROOO 



* 

RDTXA 
ROTXB 
RDTXC 
RDTXD 
RDFNC 

RDIO 
RD01 



XXXXX 
DC 
BSI 
SLA 
STO 
STO 
SLA 
STO 
LD 
EOR 
STO 
STO 
STO 
BSI 
XIO 

BSI 

MDX 



DC 

DC 

DC 

DC 

DC 

BSS 

DC 

DC 



COMMON REAO ROUTINE 
KXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 





CKBSY 

16 

ERCT 

RETRY 

16 

ERSW 

TAPEO 

ROFNC 

ROIO+1 

LSTFN 

INT 

ROOEV 

ROIO 

CKBSY 

RD01 



CK BSY 

CLEAR ERROR CONTROL 
CLEAR RETRY SM 

CLEAR ERROR SM 
GET AREA COOE 
SET FNC 
SAVE 



REQUEST DEVICE 
ISSUE READ 
CK BUSY 



SE 
',RC 



SRC 
SRC 



CONSTANTS 



/2FB3 

/3FCF 

/2C03 

/OOFF 

/0602 



IOA 





DSM OK CK 
MLR OR OIAG CK 
NOT CORR CK 
SAVE REREAD 
REAO FNC 

READ IOCC 



REAO IS COMPLETE 






RD02 



RD03 



BSI 
LO 
8SC 
LD 

A 
STO 



LD 
AND 
BSC 
MDX 



RLDEV 

RETRY 

RDT7A.Z 

ROCT 

ONE 

RDCT 



RELEASE OEVICE 
GET RETRY SW 
BRANCH = RETRY 
GET TOTAL RO CT 
AOD 1 
SAVE 



SRC 



L LSDSH 
ROTXA 
I 
R011 



CHECK SENSE WORD 

GET DSM 

HAS SENSE WD OK 
NO 



R004 
R005 



LD 

STO 

SLA 

S 

A 

STO 

LDX 

LO 

A 

STO 

SLA 

STO 

LD 

STO 

MDX 



CHECK DATA 

L RDTXH GET LINE 

L RD26 SET 

16 CLEAR ACCUM 

L? VRWC+8 GET WO CT COMPL 

L ONE AOO I 

R003»l SET 

U IX 3 « WD CT 

L ROTXE GET ADRS OF I/O +1 

L2 VRW08 AOO WD CT 

RD06*1 SET 

16 CLEAR WO IN ERROR CT 
L MONO 

L PATT GET DATA PATT 

L PTSV SAVE 

L WONO.l INCR MO IN ERROR CT 



m> 



o. 



tmm mm 
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80B05440 

80B05450 

80B05460 

6OB0S47O 

80B05480 

80B05490 

80B0S500 

80B05510 

80B05520 

80B05S30 

80B05540 

80B05550 

80B05560 

80B05570 

80B05580 

80B05590 

80B0S600 

80805610 

80B05620 

80B05630 

80B05640 

80B05650 

80B05660 

80B05670 

80B05680 

80B05690 

80B05700 

80B05710 

80B05720 

80B05730 

80B05740 

80B05750 

80B05760 

80B05770 

80B05780 

80B05790 

80B05800 

80S0S610 

80B05820 

80B05830 

80B05840 

80B05850 

80B05860 

80B05870 

80B05880 

80B05890 

80B05900 

80B05910 

80B05920 

80B05930 

80B05940 

80B05950 

80B05960 

80B05970 

80B05980 

80B0599C 

80B06000 

80B06010 

80B06020 

80B06030 

80B06040 

90B06050 

80B06060 

80B06070 

8CB06080 

80B06090 

80B06100 

80B06110 
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0A55 01 
0A57 00 
0AS9 01 
0A5B 00 
0A5D 01 
0A5F 
0A60 
0A61 
0A6 2 00 
0A64 01 
0A66 
0A67 
0A68 
0A69 
















0A6A 01 



0A6C 01 
0A6E 01 
0A70 01 
0A72 01 
0A74 
0A7S 
0A76 



C40007FF 

D4000133 

C4000AD4 

F 7000000 

44200AD9 

7301 

70F2 

1010 

D4000133 

74000AD5 

702C 

C069 

4820 

7002 

4C800AOC 



C400085B 

84000833 

D400085B 

44000B7B 

A001 

0004 

70F3 



0A77 01 
0A79 
0A7A 
0A7B 
0A7C 01 
0A7E 
0A7F 
0A80 01 
0A82 
0AB3 01 
0A85 01 
0A87 



C4000834 

EOAA 

4820 

700C 

44000B7F 

E007 

0001 

C 4000834 

EOAO 

4CH0A87 

740 IOA 05 

70B3 



0A8B 01 
0A8A 01 
0A8C 01 
0A8E 01 
0A90 
0A91 
0A92 



C400085C 

84000833 

0400 08 5C 

44000B7F 

E003 

0001 

7007 














0A93 
0A94 
0A9S 
0A96 
0A97 
0A98 
0A99 
0A9A 
0A9B 01 
0A9D 
0A9E 01 
OAAO 01 



DATE 
EC NO. 



1010 

0040 

C03B 

EOBE 

S03E 

4818 

7008 

C036 

84000833 

D033 

440009/ 3 

4C000A13 



01NAY66 
415.' 2r- 



P006 
RD07 
RD08 



ROIO 
RD09 



R011 



RD12 

« 

RD13 



LO 

STO 

LD 

EOR 

BSI 

MDX 

MDX 

SLA 

STO 

MDX 

MOX 

LO 

BSC 

MOX 

BSC 



LD 
A 

STO 
BSI 

DC 
OC 
MDX 



LD 

AND 

BSC 

MDX 
BSI 

DC 

OC 

LD 

AND 

BSC 

MDX 

MOX 



L 
L 
L 
L3 

L 
3 



PID 

CKCR 

PTSV 



RD24.Z 

1 

RD05 

16 

CKCR 

ERSW.O 

RD16 

ERCT 

Z 

R009 

RO 



SET PARITY IGNORF 

GET PATTERN MO 

COMPARE MITH DATA 

BRANCH = NO COMPARE 

OECR IX 3 

LOOP 

CLEAR PARITY IGNORE 

IS ERROR SM « 

NO 

GET ERROR CTRL 

SKIP IF NO PREV ERR 

HAD A PREVIOUS ERROR 

EXIT S X 



RECRD 

ONE 

RECRD 

MLG 

/A001 

/0004 

ROIO 



HAD A PREVIOUS ERROR 

GET RECOVERED RO CT 

AOD 1 

SAVE 

PRINT 

ID A 1 

FORM 4 



SRC 



DSM MAS NOT CORRECT 



LSDSM 
RDTXC 

Z 

R013 

MER 

/E007 

/0001 

LSDSW 

ROTXB 

RD12,*- 

ERSW.l 

R002 



GET DSM 

SKIP IF CORRECTABLE 

NOT CORRECTABLE 

PKINT SRC 

10 E 7 

FORM 1 

GGT DSM 

BRANCH = MLR OR OIAG 
SET ERROR SM 
GO CK DATA 



R016 



LD 
A 

STO 
BSI 

OC 
OC 

MDX 



SLA 

STO 
LO 

ANO 

s 

BSC 

MOX 

LO 

A 

STO 

BSI 

BSC 



• 



UNCORRECTABLE ERROR 

URRD GET UNREC CT 

ONE ADO 1 

URRD SAVE 

MER PRINT SR r 

/E003 10 E 3 

/0001 FORM 1 

ROIO CONTINUE 

RETRY REC IN ERROR 

16 

ERSM CLEAR ERROR SW 

ERCT GET ERROR CONTROL 

ROTXD SAVE REREAO CT 

K009 SUB 9 

♦- IS REREAD CT « 9 

RD17 res 

ERCT GET ERROR CTRL 

ONF ADO 1 

ERCT SAVE 

BSP BACKSPACE SRC 

ROOO GO RETRY 

REREAD CT IS 9 



OA 4152 



04N0V66 
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80B06120 

80B06130 

80B0614C 

80B0M50 

80B06160 

80B06170 

80B06180 

80BO6190 

80B06200 

80B06210 

80B06220 

80B06230 

80B06240 

S0B06250 

80B06260 

80B06270 

80B06280 

80B06290 

80B06300 

80B06310 

80B06320 

80B06330 

80B06340 

80B06350 

80B06360 

80B06370 

80B06380 

80B06390 

80306400 

8Gd06410 

B0B06420 

80B06430 

80B06440 

80B06450 

80B06460 

80B06470 

80B06480 

80B06490 

80B06500 

80B06510 

80B06520 

80B06530 

B0B06540 

80B06550 

80B06560 

80B06570 

80B065B0 

80B06590 

80B06600 

80B06610 

80806620 

80B06630 

80B06640 

80B06650 

80B06660 

80806670 

80B06680 

P0B06690 

H0BO67OO 

RCB06710 

90806720 

80B06730 

80B06740 

80B06750 

80B06760 

80B06770 

80B067B0 

80B06790 
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0AA2 





C02E 


R017 


LD 




ERCT 


GET ERROR CTRL 


0AA3 





1808 




SRA 




8 


SAVE CLEAN CT 


0AA4 





9031 




S 




K009 


SUB 9 


OAAS 


01 


4C180A8B 




BSC 


L 


RD13,*- 


BRANCH - CLN CT 


0AA7 





802F 




A 




K010 


AOD 10 


0AA8 





1008 




SLA 




8 




0AA9 





0027 


• 
• 
• 

Roie 


STO 




ERCT 


SAVE 












BACKSPACE PAST CLEANE 


OAAA 





6305 


LOX 


3 


5 




OAAB 





680B 


R019 


STX 


3 


RD20+1 


SAVE IX 3 


OAAC 


01 


440009A 3 




BSI 


I 


esp 


BACKSPACE 


OAAE 


01 


44000902 




BSI 


L 


SNDSM 


SENSE OR 


OABO 





1803 




SRA 




3 




0AB1 





4804 




BSC 




E 


IS DR AT LO PT 


0AB2 





7014 




NDX 




RD23 


YES 


0AB3 


00 


67000000 


R020 


LOX 


L3 





RESTORE IX 3 


0AB5 





73FF 




HDX 


3 


-1 


OECR IX 3 


0AB6 





70F4 


• 
* 

• 


MOX 




RD19 


LOOP 












REPOSITION TO REC OES 


0AB7 





6305 


LOX 


3 


5 




0AB8 





6B0A 


R021 


STX 


3 


R0T7A+1 


SAVE IX 3 


0AB9 


01 


C 4000833 




LD 


L 


ONE 


GET 1 


OABB 





0016 




STO 




RETRY 


SET RETRY SW 


OABC 





73FF 




MOX 


3 


-1 


OECR IX 3 


OABD 





7002 




MOX 




RD22 


SKIP ONE RECORD 


OABE 





1010 




SLA 




16 




OABF 





0012 




STO 




RETRY 


CLEAR RETRY SW 


OACO 


01 


4C000A13 


R022 


BSC 


L 


ROOO 


GO SKIP 


0AC2 


00 


67000000 


RDT7A 


LOX 


L3 





RESTORE IX 3 


0AC4 





73FF 




NDX 


3 


-1 


OECR IX 3 


0AC5 





70F2 




MOX 




RD21 




0AC6 





70F1 




HDX 




RD21 





SRC 
SRC 



OR REACHED LD PT - NOT 
CLEANER 



OACT 


01 


44000B7B 


R02 3 


BSI 


L 


MLG 


PRINT 


CAC9 





A002 




DC 




/A002 


ID A 2 


OACA 





0000 




DC 




/OOOO 


FORM 


OACB 





COOC 




LD 




KOOS 


GET 5 


OACC 





90E7 




5 




R020*l 


SOB PRESENT LOC 


OACO 





00E6 




STO 




R020+1 


SAVE 


OACE 


01 


67800AB4 




LOX 


13 


R020+1 


IX 3 = RECS TO PASS 


OADO 


n 


70E7 


• 
• 
• 
ERCT 


NDX 




R021 


GO POSITION 












CONSTANTS 


0AD1 





0000 


DC 







ERROR CONTROL 


0A02 





0000 


RETRY 

• 
kDSO 


DC 







RETRY SW 


OA03 





0000 


DC 







WORD IN ERROR CT 


0AD4 





0000 


PTSV 


DC 







PATTERN WD 


0A05 





0000 


ERSH 

• 


DC 







ERROR SW 


0AD6 





0009 


• 
K009 


DC 




9 


CONSTANT 9 


0AD7 





OOOA 


K010 


OC 




10 


CONSTANT 10 


0AD8 





0005 


KOOS 

• 
• 
* 
RD24 


DC 




5 


CONSTANT 5 












HAD 


BAD DATA 


0AD9 





0000 


OC 









OADA 


01 


74010A05 




NDX 


L 


ERSHtl 


INCR ERROR SW 


OAOC 


01 


44000B7F 




BSI 


L 


ME ft 


PRINT 



SRC 



SE 
SRC 



b t no. ram whip 
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80B06800 
B0B06810 
80B06B20 
80B06830 
80B06840 
80B06850 
80B06860 
80B06B70 
80B06B80 
80B06B90 
80B06900 
80B06910 
80B06920 
8 OB 06930 
80B06940 
80B06950 
80B06960 
B0B06970 
80B06980 
80B06990 
80B07000 
B0B07010 
80B07020 
80B07030 
80B07040 
80B07050 
80B07060 
80B07070 
B0BO7O8O 
80B07090 
80B07100 
80807110 
80B07120 
80B07130 
80B07140 
80B07150 
80B07160 
80B07170 
80B07180 
80B07190 
80B07200 
80B07210 
80607220 
80B07230 
80B07240 
80B07250 
80B07260 
80B07270 
80B07280 
80B07290 
80B07300 
80B07310 
80B07320 
80B07330 
80B07340 
80B07350 
80B07360 
80B07370 
80B07380 
80B07390 
80B07400 
80B07410 
BOB07420 
80B07430 
80 B 07440 
80B07450 
80B0T460 
80B07470 
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OADE 


E004 




DC 




/E004 


ID E * 




SOB 07480 




OAOF 


0003 


RD26 


DC 




/0003 


FORM 3 




80B07490 




OAEO 01 


C4000B02 




LD 


L 


SWO 


GET SW FNC 




80B07500 




0AE2 


100 A 




SLA 




10 






80B07510 




0AE3 


4810 




BSC 




- 


IS PRINT ONLY 1ST ON 




80B07520 




0AE4 


7002 




MOK 




R025 


NO 




80B07530 




0AE5 01 


4CO0OA61 




BSC 


L 


RD08 


YES 




80B07540 




0AE7 


C004 


RD25 


LD 




RDTXF 


GET NOT LIME 




80B07550 




0AE8 


00F6 




STO 




RD26 


SET 




80607560 




0AE9 01 


4C000A5F 




BSC 


L 


ROOT 






80B07570 




OAEB 1 


0C13 


ROTXE 


OC 




IOA+1 


CONSTANT AORS 




80B075B0 




OAEC 


8003 


RDTXF 


OC 




/8003 


FORM 3 - NOT LINE 




80B07590 




OAEO 


0003 


RDTXH 


OC 




/0003 


FORM 3 - LINE 




BOB07600 








•XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX* 




80B07610 








• 












B0B07620 




-^ 




• 






COMMON WRITE RTN 




B0B07630 








• 












80B07640 








•XXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


80B07650 




OAEE 


0000 


WRT 


DC 









SE 


80807660 




OAEF 01 


44O009E8 




BSI 


L 


CKBSY 


CK FOR BUSY 


SRC 


80B07670 




0AF1 01 


C 5000858 




LO 


LI 


TAPEO 


GET AREA CODE 




80B07680 




OAFS 


F052 




EOR 




WRFNC 


SET WRITE FNC 




80B07690 




0AF4 


0050 




STO 




WRIO+l 


SAVE 




80B07700 




OAFS 01 


D40009C0 




STO 


L 


LSTFN 






80B0771* 




0AF7 01 


D4000AOB 




STO 


L 


INT 






BOB07720 




OAF* 


1010 




SLA 




16 






80B07730 




OAFA 


0006 




STO 




ERCT 


CLEAR ERROR CNTRL 




80B07740 




OAFB 


4063 


WRT01 


BSI 




RQDEV 


REQUEST DEVICE 


SRC 


80B07750 




OAFC 


0847 




XIO 




WRIO 


ISSUE WRT 




80B07760 




OAFD 01 


4400 09E8 


• 


BSI 


L 


CKBSY 


CK FOR BUSY 


SRC 


80B07770 
80B07780 




OAFF 01 


C 4000860 




LD 


L 


WRCT 


GET WRITE CT 




80B07790 




0601 01 


84000833 




A 


L 


ONE 


ADO 1 




80B07800 




0B03 01 


D4000860 




STO 


1 


WRCT 


SAVE 




80BOT810 




OBOS 


406A 




BSI 




RLOEV 


RELEASE DEVICE 


SRC 


80B07820 




0B06 01 


C 4000834 




LO 


L 


LSOSW 


GET OSW 




80B07830 




OBOS 


E03F 




ANO 




WRIX4 


CK FOR CORRECT 




80B07840 




0809 


4820 




BSC 




Z 


SKIP ■ OK 




80B07850 




OBOA 


7005 




HDX 




HRTD3 


OSW NOT CORRECT 




80B07860 




OBOB 


C0C5 




LO 




ERCT 


GET ERROR CTL 




80807870 




OBOC 


4820 




BSC 




Z 


SKIP * NO ERRORS 




80B07880 




OBOO 


702A 




MOX 




WRT05 


PREVIOUS ERROR 




80B07890 




OBOE 01 


4C800AEE 


WRT 02 

• 
• 
• 


BSC 


I 


WTtT 

osw 


EXIT 
NOT CORRECT 


SX 


80B07900 
80B07910 
80B07920 
B0B07930 




OB 10 01 


C4000834 


WRT 03 


LD 


L 


LSOSW 


GET OSW 




80B07940 




0B12 


E034 




AND 




WRIX6 


CK FOR CORR 




80B07950 




OB 13 


4820 




BSC 




z 


SKIP « CORRECTABLE 




80B07960 




0B14 


7015 




HDX 




WRT04 


NOT CORRECTABLE 




80B07970 




0B15 


4069 




BSI 




MER 


PRINT 


SRC 


80B07980 




0B16 


E005 




DC 




/E005 


10 E 5 




80B07990 




0B17 


0001 




DC 




/0001 


FORM 1 




80B08000 




0B18 


C0B8 




LD 




ERCT 


GET ERROR CTRL 




8CB0B010 




0B19 


«?02F 




S 




K003 


SUB 3 




80B08020 




0B1A 01 


4C180B2A 




BSC 


L 


WRT04 t «- 


BRANCH « 3 TRYS 




80BOB030 




0B1C 


8020 




A 




K004 


ADO 4 




80B08040 




0B10 


COB 3 




STO 




ERCT 


SAVE 




80BO8050 




0B1E 01 


440009A3 




BSI 


L 


BSP 


BACKSPACE 


SPC 


80BOB060 




0B20 01 


C 5000858 




LO 


LI 


TAPEO 


GET AREA CODE 




80B08070 




OB22 


F01F 




EOR 




CRAFN 


SET ERASE FNC 




80B08080 




OB23 


D01F 




STO 




ERAFN*1 


SET ERASE IOCC 




80B08090 




0B24 


403A 




BSI 




ROOEV 


REOUEST DEVICE 


SRC 


B0B08100 




0B25 


08 1C 




XIO 




ERAFN 


ISSUE ERASE 




80B08110 




0B26 01 


440009E8 




BSI 


L 


CKBSY 


CK FOR BUSY 


SRC 


BOB08120 




or 2 8 


4047 




BSI 




RLOEV 


RELEASE OEVICE 


SRC 


80B08130 




0B29 


7001 


• 


MOX 




WRT01 


RETRY 




80B08140 
80608150 




K 7 So. 


SiSKtt 


OT! 6 
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• 






UNRECOVERABLE ERROR 


80B08160 




0S2A 01 C400065E 


• 

HRT04 LO 


L 


URWR 


GET UNREC CT 


80B08170 
80B08180 




0B2C 01 84000833 




A 


L 


ONE 


ADD 1 


80B08190 




082 E 01 D400085E 




STO 


L 


URMR 


SAVE 


80B08200 




0630 404E 




esi 




MER 


PRINT SRC 


80B08210 




0S31 E006 




DC 




/E006 


10 E 6 


80808220 




0632 0001 




DC 




/0001 


FORM 1 


80808230 




0833 1010 




SLA 




16 


TERMINATE THIS DRIVE 


80808240 




0834 01 D5000658 




STO 


LI TAPES 




80B08250 




0B36 01 4C000890 


• 


esc 


L 


M0N07 




80B08260 
80808270 






* 






HAO 


A PREVIOUS ERROR 


8(7808280 




0838 01 C 4000850 


• 

MRT05 LO 


L 


RHR 


GET RECOV HRT CT 


80B08290 

80B08300 




063A 01 84000833 




A 


L 


ONE 


AOO 1 


80B08310 




063C 01 D4000850 




STO 


L 


RWR 


SAVE 


80B08320 




083 E 403C 




BSI 




MLG 


PRINT SRC 


80B08330 




063F A003 




DC 




/A003 


10 A 3 


80B08340 




0840 0004 




DC 




/0004 


FORM 4 


80B08350 




0641 70CC 


• 


MDX 




MRT02 




80B08360 
80B08370 






* 






CONSTANTS 


80B08380 






* 










80B08390 




0842 0000 




8SS 


E 







80B08400 




0842 0402 


ERAFk 


DC 




/0402 


ERASE IOCC 


80B08410 




0B43 0000 


* 


DC 









80B08420 
80B0B430 




064* 1 0C12 


WRIO 


DC 




IOA 


WRITE IOCC 


80B08440 




0B45 0000 


• 


DC 









80B08450 
80B08460 




0846 0500 


MRFNC 

* 


DC 




/0500 


WRT FUNCTION 


80B08470 
80B08480 




0647 2C13 


NRIX6 


OC 




/2C13 


CK DSW FOR CORCTABLE 


80B06490 




0B48 2F83 


MR 1X4 


DC 




/2F83 


CK DSH FOR EXPECTED 


80B08500 




0849 0003 


K003 


DC 




3 


CONSTANT 3 


80B08S10 




0B4A 0004 


K004 


DC 




4 


CONSTANT 4 


80B08520 






•xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


80B08530 






• 










80B08540 






* 






RTN 


TO SET MLSCF ENTRY 


80B08550 






• 










80B08560 






♦xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


80B08570 




0B4B 0000 


STPST 


DC 







SE 


80B08580 




084C 01 C4800B46 




LD 


1 


STPST 


GET FINAL RETURN 


80B08590 




OB4E DOOE 




STO 




CMEX+1 


SAVE 


80B0B600 




0B4F 6A08 




STX 


2 


CMRT+1 


SAVE IX 2 


80B08610 




0B50 6908 




STX 


I 


HONRT+1 


SAVE IX 1 


80B08620 




0B51 COOC 




LD 




FNLRT 


GET ENTRY 


80B0B630 




UB52 CI 0400080A 




STO 


L 


NLSCF-fl 


SET 


80B08640 




0B54 01 74010B4B 




MDX 


L 


STPST, 1 


INCR RETURN 


80B08650 




0B56 01 4C600B4B 


• 


BSC 


I 


STPST 


EXIT SX 


80BOB660 
80BOB670 






• 






MONITOR RETURNS 


80B08680 






• 










80B08690 




OB58 00 65000000 


MONRT 


LDX 


LI 





RESTORE IX 1 


8OB087O0 




08 5A 00 66000000 


CMRT 


LDX 


L2 





RESTORE IX 2 


80B08710 




oesc oo 4C000000 


cm;x 


BSC 


L 





BRANCH TO SAVED ADRS 


80B08720 




0B5E 1 OB58 


FNLRT 


DC 




MONRT 


MLSCF ENTRY 


80B08730 






•xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


80B08740 






• 










80B08750 






• 






ROUTINE TO REQUEST DEVICE 


80B08760 






* 










80B08770 






•xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


80B08780 




085 F 0000 


ROOEV 


OC 







SE 


80B08790 




0B60 01 C4000812 


RQ01 


LD 


L 


FDIT 


IS DEV ALREADY REO 


80B08800 




0662 4828 




BSC 




♦ 2 


SKIP • NO 


80B08R10 




0663 7006 




MOX 




R002 


YES 


80B08820 






ft******************************************** 


80B08830 




8 T no. MttBt 


sram* 
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c 

,_ 08** 00 44800131 8SI I REODV REOUEST DEVICE 

V.' 0B66 1 0B6C DC NTBSY BUSY RETURN 

ADRS DDEF 
ADRS DVA 
ADRS TERMINATOR 
**«***•******«'*•******•******************»,*** 

R002 BSC I ROOEV EXIT SX 

• 

* DEVICE IS BUSY 



H 1) € « CJ 



0B64 


00 


44800131 


0B66 


1 


066C 


0B6T 


1 


0812 


0B68 


1 


081C 


0B69 


1 


OBOB 



BSI 


I REODV 


DC 


NTBSY 


DC 


EDIT 


DC 


MTIO 


DC 


TERM 



0B6A 01 4C800B5F 



0B6C 40DE 
0B60 1 0B60 

0B6E 00 4C800120 



SET MLSCF FNTRY 



MTBSY BSI STPST 

DC R001 

********************************************** 

BSC I START GO TO MONITOR * 

********************************************** 

•XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



SRC 



ROUTINE TO RELEASE DEVICE 



0B70 0000 
0B71 01 C4000812 
0B73 4810 
0B74 7004 

0B75 00 44800132 
0B77 1 0812 
0B78 1 OBOB 

0B79 01 4C800B70 



•XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
RLOEV DC SE 

LD L EDIT GET DDEF 
6SC - IS DEVICE REQ 

MDX RL01 NO 
********************************************** 
6SI I RELOV RELEASE DEVICE * 
DC EDIT ADRS DDEF * 

DC TERM ADRS TERMINATOR * 
********************************************** 
RL01 BSC I RLOEV EXIT SX 

•XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

• 

* ROUTINE TO SET UP MSG 

* 

»XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

SE 



SE 



0676 


0000 


MLG 


DC 







LOG ENTRY 


087C 


1010 




SLA 




16 


CLEAR ACCUM 


0B7D 


D022 


MLS01 


STO 




ERRSM 


SET IN ERROR SW 


0B7E 


7006 


* 
MER 


MOX 




LG01 




0B7F 


0000 


DC 







ERROR ENTRY 


0B80 


COFE 




LD 




ME P. 


GET RETURN 


0B81 


D0F9 




STO 




MLG 


SAVE 


0B82 01 


C4000833 




LD 


L 


ONE 


GET ONE 


0B84 


70F8 





MDX 




MLG01 




0B8 5 


697D 


LG01 


STX 


1 


UNIT 


SET UNIT IN MSG 


0B86 


6B47 




STX 


3 


LG07*1 


SAVE IX 3 


0B87 01 


C4800B7B 




LD 


I 


MLG 


GET MSG ID 


0B89 


6B28 




STX 


3 


LG04«1 


SAVE IX 3 


0B8A 


D077 




STO 




MSGIO 


SET IN MSG 


0B8B 01 


740JOB7B 




MDX 


L 


MLG.l 


INCR RETURN 


0B8D 01 


C4800B78 




LD 


I 


MLG 


GET FORM NUMBER 


0B8F 


D009 




STO 




LOGXO 


SAVE 


0B90 


1001 




SLA 




1 


REMOVE BIT 


0391 


1801 




SRA 




1 




0B92 


0003 




STO 




LG«2+l 


SET 


0B93 01 


74010B7B 




MOX 


L 


MLG.l 


INCR RETURN 


0B95 00 


67000000 


LG02 


LDX 


L3 





IX 3 * FORM 


0B97 01 


4F800B9A 




BSC 


13 


FORMT 


GO TO FORM 


0699 


0000 


LOSXO 

* 
• 


DC 






FORM 


FORM STORAGE 
TABLE 


0B9A 1 


0BA1 


FORNT 


DC 




FORMO 


FORM NUMBER 


0B9B 1 


OBBF 




OC 




F0RM1 


1 


069C 1 


0BC6 




DC 




F0RM2 


2 


0B9D 1 


OBCA 




DC 




F0RN3 


3 


DATE 
EC NO. 


01MAY66 
415120A 


*8Bi» 
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80B0BB40 

80B08B50 

80B08860 

80808870 

80B0B88O 

80B08890 

80B08900 

80B08910 

80B06920 

80B08930 

80808940 

80B08950 

80B08960 

80B08970 

80B08980 

80B08990 

80B09000 

80B09010 

80B0<>020 

80B09030 

B0B09040 

80B09050 

80B09060 

80B09070 

80B09080 

80B09090 

80B09100 

B0B09110 

80B09120 

80B09130 

80B09140 

80B09150 

80B09160 

80B09170 

80B091BO 

80B09190 

80B09200 

60B09210 

80B09220 

80B09230 

80B09240 

80B09250 

80B09260 

80B09270 

80B09280 

80B09290 

80B09300 

80B09310 

80B09320 

80B09330 

80B09340 

80B09350 

80B09360 

80B093TO 

80B09380 

80B09390 

80B09400 

80B09410 

80B09420 

80B09430 

80B09440 

80B09450 

80B09460 

80B09470 

80B09480 

80B09490 

B0B09500 

80B095I0 
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0B9E 


1 


0BF2 




DC 


FORM* 


0B9F 


I 


0BF6 




DC 


FORMS 


OBAO 





0000 


E*«SW 

* 
• 
• 
FO*MO 


DC 





0BA1 


01 


C4000833 


ID 


. ONE 


0BA3 





OOSC 




STO 


MSGO 


0BA4 





COFB 


LG03 


LO 


ERRSH 


0BA5 





4820 




BSC 


Z 


OB A 6 





700E 




MDX 


LG05 


0BA7 


01 


C4000802 




LO L SUO 


0BA9 





1000 




SLA 


13 


OBAA 





4828 




BSC 


♦ Z 


OBAB 





7005 




MDX 


LG04 



FORM 



4 
5 

ERtOR SH 


S 


GET 1 

SET AS WD CT 
GET ERROR SW 
SKIP IF LOG 
GO TO ERROR 
GET SU FNC 



OBAC 00 4480012F 
OBAE 1 OCOO 
OBAF 1 OBBB 
OBBO 0000 

0BB1 00 67000000 
0BB3 01 4C800B7B 

0BB5 00 44800130 



0BB7 1 
OBBB 1 
0BB9 1 



OCOO 
OBBB 
OCOD 



OBBA 70F6 



OBBB 408F 
OBBC 1 08A4 

OBBO 00 4C 80 01 20 



BRANCH * NO BYPASS 
BYPASS LOG 

********************************************** 

BSI I LOG PRINT VIA LOG • 

DC MSGO AORS OF MSG • 

DC PRBSY BUSY RETURN * 

DC • 

********************************************** 
;.G04 LDX L3 RESTORE IX 3 

BSC I MLG EXIT SX 

•*•******•*******••**••*•****•*****•****•*••** 

LG05 BSI I ERROR PRINT VIA ERROR • 

DC MSGO ADRS OF MSG * 

DC PRBSY BUSY RETURN * 

DC LOOP LOOP ON ERROR AORS * 

*******************************************«#* 

MDX LG04 

* BUSY RETURN 



PRBSY BSI STPST 

DC LG03 

•*********•***•*•*•**** 

BSC I START 

*********************** 



SET MLSCF ENTRY 

*********************** 
GO TO MONITOR * 

•*•**••***** *********** 



SRC 







• 
* 






FORM 


IS ONE 


OBBF 01 


C 4000834 


F0RM1 


LO 


I 


LSDSW 


GET DSW 


0BC1 


D042 




STO 




MODO 


SET IN MSG 


0BC2 


C002 


LG06 


LO 




K002 


GET 2 


0BC3 


003C 




STO 




MSGC 


SET AS WD CT 


0BC4 


70DF 




MDX 




LG03 




0BC5 


0002 


K002 

• 
• 
* 


OC 




2 

FORM 


CONSTANT 2 
IS TWO 


0BC6 01 


C40009C0 


F0*M2 


LO 


L 


LST'N 


GET LAST FNC ♦ MOD 


0BC8 


D03B 




STO 




MOOO 


SET IN MSG 


0BC9 


70F8 


* 
* 
• 
F3P:M3 


MDX 




LG06 

FO»M 


IS THREE 


OBCA 01 


C6000986 


LD 


L2 


VRWOS 


GET WD CT THIS REC 


OBCC 


003 7 




STO 




MODO 


SET IN MSG 


OBCD 00 


67000000 


LG07 


LJX 


L3 





IX 3 « ADRS BAD WD 


OBCF 01 


C4000A5C 




LO 


L 


RD06+1 


GET IOA *1 *W0 CT 


0BD1 


0005 




STO 




LG08+1 


SET 


0BD2 01 


C40007FF 




LO 


L 


PIO 


SET PARITY IGNORF 


OB 04 00 


04000133 




STO 


L 


CKCR 




0B06 00 


C 7000000 


LG08 


LO 


L3 





GET WD IN ERROR 


0BD8 


D02C 




STO 




MODI 


SET IN MSG 


06D9 


1010 




SLA 




16 


CLEAR PARITY IGNORE 


OBOA 00 


04000133 




STO 


L 


CKCR 




OBDC 01 


C40O0AD4 




LD 


L 


PTSV 


GET EXPECTED DATA 


DATE 


01MAY66 


04NQV64 
415233 








EC NO. 


415120A 
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80B09520 

80B09530 

80B09540 

80B09550 

80B09560 

80B09570 

80B0958O 

80B09590 

80B09600 

80B09610 

80B0962C 

80B09630 

80B09640 

80809650 

80B09660 

80609670 

80B09660 

SOB 09690 

80B09700 

BOB09710 

80B09720 

80B09730 

80B09740 

80B09750 

80B09760 

80B09770 

80609780 

80B09790 

80B09800 

80B09810 

80B09820 

80B09830 

80B09840 

80B09850 

80B09860 

806 09870 

80B09880 

80B09890 

80809900 

80B09910 

80B09920 

80B09930 

80B09940 

80B09950 

80B09960 

80809970 

80B09980 

80B09990 

80B10000 

80B10010 

80B10020 

B0B10030 

80B10040 

80B10050 

BOB 10060 

SOB 10070 

80B10080 

80B10090 

80B10100 

80B10110 

80B1O12O 

80B10130 

80B10I40 

80B10150 

80B10160 

80B10170 

B0B10180 

80B10190 
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OBOE 


0027 




STO 




M0D2 




SET IN MSG 


OBDF 01 


C4000A03 




LO 


L 


WDNO 




GET WD NUMBER 


0BE1 


002 5 




STO 




M003 




SET IN MSG 


0BE2 01 


C6000985 




LO 


L2 


VRWC*7 


GET WD CT LAST REC 


0BE4 


002 3 


LG10 


STO 




M0D4 




SET IN MSG 


OBES 01 


F 4000970 




EOR 


L 


K500 






0BE7 01 


4C200BEC 




BSC 


L 


LG09. 


Z 


BRANCH IF OK 


0BE9 01 


C4000985 




LO 


L 


VRWC+7 


GET CORRECT WD CT 


OBEB 


70F8 




MDX 




LG10 




GO SET 


OBEC 


COAC 


LG09 


LD 




LOGXC 


1 


GET FORM 


OBED 


1603 




SRA 




3 




SAVE BIT 


OBEE 


1003 




SLA 




3 






OBEF 


F01B 




EOR 




K006 




SET WD CT * 6 


OBFO 


DOOF 




STO 




MSGO 




SET 


0BF1 


70B2 


* 
• 
* 


MDX 




LG03 


FORM 


IS FOUR 


0BF2 01 


C4000AD1 


F0RM4 


LD 


L 


ERCT 




GET ERROR CTRL 


0BF4 


DOOF 




STO 




MODO 




SET IN MSG 


0BF5 


70CC 


* 
• 
• 
F0RM5 


MDX 




LG06 
















FORM 


IS FIVE 


0BF6 


6307 


LOX 


3 


7 






0BF7 01 


C 70006 5A 


LGAA 


LO 


L3 


SRSCT 




GET A COUNT 


0BF9 01 


D7000C03 




STO 


L3 


UNIT 




SET IN MSG 


OBFB 


73FF 




MDX 


3 


-1 




OECR IX 3 


OBFC 


70FA 




MDX 




LGAA 




LOOP 


OBFO 


COOE 




LO 




K006 




GET 8 


OBFE 


0001 




STO 




MSGO 




SET AS WO CT 


OBFF 


70A4 


f 


MDX 




LG03 










* 








MESSAGE STORAGE 


OCOO 


0000 


MSGO 


DC 









LINE NO-WO CT 


0C01 


0000 




DC 









HEX-DEC SW 


0C02 


0000 


MSGIO 


DC 









MESSAGE ID 


0C03 


0000 


UNI T 


DC 









UNIT NUMBER 


0C04 


0000 


MODO 


DC 









MSG MODIFIER 


OC05 


0000 


N3D1 


DC 









1 


0C06 


0000 


HOD 2 


DC 









2 


0C07 


0000 


MOD 3 


DC 









3 


0C08 


0000 


MOD 4 


DC 









4 


0C09 


0000 


MOO 5 


DC 









5 


OCOA 


0000 


M0D6 


OC 









6 






* 










CONSTANTS 


OCOB 


0006 


K006 


DC 




6 




CONSTANT 6 


OCOC 


0008 


Kooe 

* 
• 

* 


DC 




8 


LOOP 


CONSTANT 6 
ON ERROR ENTRY 


OCOD 01 


C4000801 


LOOP 


LD 


L 


RAD 




GET RTN AORS 


OCOF 


D001 




STO 




LOOP 1*1 


SAVE 


OC10 00 


4C000O00 


L03P1 


BSC 


L 







LOOP 


0C12 


03E9 


IOA 


BSS 




1001 




IOAREA 


OFFB 


0000 


PENO 


DC 











OFFC 


0869 




END 




MTBEG 







BOB 1078 
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80 B 10200 

80B1O21O 

80B10220 

80810230 

BOB 10240 

B0B10250 

80B10260 

80B10270 

80B10280 

80610290 

80610300 

80B10310 

80B10320 

80B10330 

80S 10340 

80B10350 

80B10360 

80B10370 

80B10380 

80B10390 

SOB 10400 

80B 10410 

80B10420 

SOB 10430 

BOB 10440 

SOB 10450 

S0B10460 

B0B10470 

80B10480 

80B10490 

80B10500 

80B10510 

80B10520 

80B10530 

SOB 10540 

80B 10550 

SOB 10560 

80B10570 

80B1058O 

BOB 10590 

80B10600 

BOB 10610 

BOB 10620 

80B10630 

80B10640 

80B10650 

60B10660 

80B10670 

80B10680 

80B 10690 

BOB10700 

80B10710 

SOB 10720 

8OB10730 

80B10740 

80B10T50 

80B 10760 

80B10770 

80B10780 

BOB 10790 



OATE 
EC NO. 



01MAY66 
415120A 



04N0V66 
415233 
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SYMBOL 


VALUE 


REFERENCES 


ACMT 


0832 


0822. 083A, 0894 


BEGIN 


012C 


07FF.0869 


BSP 


09 A 3 


09B2. 0A9E .0AAC.0B1E 


BSPFN 


09B6 


09A7, 09A8.09AE 


BSYCT 


OAOA 


09F1.09F9 


CKBSY 


09E8 


0987, 0995, 09A4,09AF,09C2,09C0,09F4,0A00,0A20,0AEF, 
0AF0.0B26 


CKBSO 


09E9 


0A07 


CKBS1 


09F6 


09EC.09EF 


CKBS2 


0A05 


09FB.09FB 


CKCR 


0133 


OA57,OA62,OB04,0BDA 


CMEX 


OBSC 


0B4E 


CMRT 


0B5A 


0B4F 


DSHFN 


09E4 


0905,0906.0908 


oswxo 


09E6 


0909, 0900, 090E,09E1,09F3 


EDIT 


0812 


087E,08BC,092 6,0B60,0B67.0B71,0B77 


ENO 


012E 


07FF.08B9 


EPA 


0808 




ERAFN 


0B42 


OB22.OB23.OB25 


ERCT 


0A01 


OA0F,OA67,OA95,OA9A,OA9D t OAA2,0AA9,OAFA,OB0B,OB18, 
0B1D.0BF2 


ERROR 


0130 


07FF.0BB5 


ERRSH 


OBAO 


OB 70, OB A4 


ERSW 


0A05 


0A14,OA64,0A8 5.OA94,OAOA 


FNLRT 


0B5E 


0351 


FO.^MT 


0B9A 


0B97 


FORMO 


0BA1 


OB 9 A 


F0RM1 


OBBF 


0B9B 


F0RM2 


0BC6 


0B9C 


F0RM3 


OBCA 


0B90 


FORM* 


0BF2 


0B9E 


F0RM5 


0BF6 


0B9F 


INT 


OAOB 


081F,084F,0990,09AA,09C8,09E0,09F2,09F6,0A1B,0AF7 


IOA 


0C12 


0808, 08E 1,095 9, 0960, A28 ,0AE8 ,0B44 


IPA 


0806 




K002 


0BC5 


0BC2 


K003 


0B49 


0B19 


K004 


0B4A 


0B1C 


K005 


0AD8 


OACB 


K006 


OCOB 


OBEF 


K008 


OCOC 


OBFO 


K009 


0A06 


0A97, 0AA4 


K010 


0A07 


0AA7 


KSOO 


0970 


08EB,096A,08E5 


LG*.A 


0BF7 


OBFC 


LG01 


0B85 


0B7E 


LG02 


0B95 


0B92 


LG03 


0BA4 


0BBC,0BC4,0BF1,0BFF 


LG04 


0BB1 


0B89,0BAB,0BBA 


LG05 


0BB5 


0BA6 


LG06 


0BC2 


0BC9.0BF5 


LG07 


OBCO 


0B86 


LG08 


OB06 


0BD1 


LG09 


OBEC 


0BE7 


LG10 


0BE4 


OBEB 


LOG 


012F 


07FF.0BAC 


LOGXO 


0B99 


0B8F.0BEC 


LOOP 


OCOD 


0BB9 


L00P1 


0C10 


OCOF 


LPA 


0807 




LSOSH 


0834 


O829,OA36,OA77,0A8O,0B06,OB10,OBBF 


LSTFN 


09C0 


098F,09A9,09C7,0A1A,0AF5,0BC6 


HER 


0B7F 


O840,O9FC,0A7C,0A8E,0AOC,0B15,OB3O,OB80 


MLG 


0B7B 


089E,08A5,06B5,090A,0A72,0AC7,0B3E,0B81,0BB7,0B8B, 
OB80,OB93,OBB3 


DATE 
EC NO. 


mm 


mn* 



I) 


X\> 


t 





c 





c 


t 


c 


c 


c 





c ! 
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NLG01 


OB 70 


OB 84 






MLSCF 


0809 


0837,0853,0852 






MOD 


08AC 


0687,0932 






MOOO 


0C04 


OBC 1 , 0BC8 , OBC C0BF4 






MODI 


0C05 


OB08 






M002 


0C06 


OBDE 






M003 


0C07 


0BE1 






MO 04 


ocoe 


0BE4 






MO 05 


0C09 








MO 06 


ocoa 








MONAA 


06C2 


083E 






MONAB 


08BC 


08C3 






MONRT 


0858 


0B50.0B5E 






MCN03 


086C 


0807, 0851, 09BF 






M0NO5 


087E 


0876. 08A4 






M0N06 


088E 


0880, 0885, 08AB 






MONO 7 


0890 


0847, 0908, 091 4, 0949, 0979, OA03.0B36 






MONOB 


089E 


0870 






M0N09 


08A5 


0880 






M0N10 


08AD 


0691 






HON 11 


0894 


08B1 






M0N12 


08B2 


08AE 






M0N13 


08BB 


0899, 0890, 08F 5 






M0N15 


0804 


0800,0988 






HON 16 


0808 


08DB 






M0N17 


080C 


06E0 






M0N18 


08DD 


08E6 






MOW 19 


090F 


0902 






M0N20 


090A 


0916 






M0N21 


0917 


090E.0944 






M0N22 


0926 


09IC 






M0N23 


093B 


0925,0939 






M0N24 


0947 


0929.092E.093A 






M0N25 


094B 


0eC6,08FA,O96D 






M0N26 


0959 


095C 






M0N27 


0955 


0951,0968 






M0N28 


0956 


0965 






MDN29 


0950 








M0N30 


08C4 








HON 31 


0979 


0973 






MSGID 


0C02 


0B8A 






MSGO 


ocoo 


0BA3.OBAE,OBB7,0BC3,0BFO,0BFE 






MTBEG 


0869 


OFFC 






MTBSY 


0B6C 


0B66 






MTDSH 


0830 


0821 ,0823, 082 4, 08? 5, 0827, 0828 






MTEND 


0864 


0806, 0867 






MTI 


0810 


0B2D 






MTIXO 


0835 


062A 






MTIX1 


0839 


0836 






MTIO 


081C 


0678, 0E86, 091 E, 0930,0 B68 






MTI03 


0836 


0828 






MTI 04 


082D 


0838 






MTI 05 


083A 


0839 






MTI 06 


083E 


0830 






MTRST 


0848 


0606,0855 






NOENO 


09 7C 


08DF.095F 






ONE 


0833 


082b, 089A,08FB,OA32.0A42,OA6E,OA8A,OA9B,OAB9,OB01, 
0B2C,0B3A,0B8 2,0BA1 






PATC 


0857 


0871 






PATT 


097B 


0872, 0802, 080 6, 0953, 0A4F 






PEND 


OFFB 


080C 






PID 


07FF 


086E, 0A55.OBD2 






PRBSY 


OBBB 


0BAF.0BB8 






PRPSS 


085F 


08B2 






PTSV 


0AD4 


0A51.0A59.0B0C 






RAD 


0801 


OCOD 




r 


RD 


OAOC 


0962, 0A6A 






RDCT 


0861 


0A30.0A34 
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0A1S 

0A19.OA1F 

089B , 08C4 1 08- , 0977 

0A38 

0A82 

0A79 

0*96 

0A47 

OAF 7 

0A3B 

0A2E,0AB8 

OAAO, OACO 

0A21 

0A87 

0A44 

0A60 

0A4B.0BCF 

0AE9 

0AE5 

0A69 

0A76.0A92 

0A3A 

0AB3 

0A7B.0AA5 

0A66 

0A99 

0AB6 

OAAB,OACC,OACO,OACE 

OACS.OAC6.0AOO 

OABO 

0AB2 

0A50 

0AE4 

0A30.0AE8 

0A6Ct 0A70 

07FF.0B75 

07FF,0B64 

0All,0A2CtOABBtOABF 

0870, 08CA ,0940 

0865, 08 8E.093B, 0947, 0996 , 0960, 09CE,0A2A,0B05,0B28, 

0B79 

0B74 

086C, 0917, 0992, 09AC,09CA,0A1D,0AFB,0B24,0B6A 

0B6D 

0B63 

0B4E 

086E 

08C8 

094C 

08CC,094B,09A1 

0980, 098E, 0994 

08FF.09D0 

099C.09AO 

098A.099F 

0B38.0B3C 

09C5,09C6,09CC 

087A,088A, 092?, 0936, 0998, 09E2,09E9,0AAE 

09E0 

09DC 

08E7, C9E9.08EF ,0966, 0968, 0960, OBF7 

07FF,0945,0A0B,0B6E,0BBD 

0942,0A05,0B4C,0B54,OB56,0B6C,0BBB 

0BF6.0AE0.0BAT 

0895,08F1,096F 

0874,0881,091 9, 092A 

08CE.094F 



urn? 
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ROFNC 


0A26 


RDIO 


0A28 


RDSM 


0862 


ROTXA 


0A22 


RDTX8 


0A23 


RDTXC 


0A24 


RDTXO 


0A25 


RDTXE 


OAEB 


RDTXF 


OAEC 


RDTXH 


OAED 


RDT7A 


0AC2 


ROOO 


0A13 


RD01 


0A2A 


RD02 


0A3B 


RD03 


0A45 


RD04 


0AS1 


RD05 


0A53 


R006 


0A5B 


RD07 


0A5F 


RD08 


0A61 


R009 


0A6C 


RDIO 


0A6A 


RD11 


0A77 


RD12 


0A87 


RD13 


0A88 


R016 


0A93 


RD17 


0AA2 


RD18 


OAAA 


R0i9 


OAAB 


R020 


0AB3 


R021 


0AB8 


RD22 


OACO 


RD23 


0AC7 


R024 


0AD9 


RD25 


0AE7 


R026 


OADF 


RECRD 


OBSB 


RELDV 


0132 


REQDV 


0131 


RETRY 


0AD2 


RID 


0800 


RLDEV 


OB70 


RL01 


0B79 


RQDEV 


0B5F 


RQ01 


0B60 


R302 


0B6A 


RST1 


084B 


RTNO 


09BE 


RTN1 


09BA 


RTN2 


09BC 


RHD 


0986 


RMDFN 


09B4 


RHDU 


09C1 


RUD01 


0998 


RWD02 


09A1 


RUR 


085D 


RWUFN 


09B8 


SNDSM 


0902 


SNDS1 


09D7 


SNDS2 


09DB 


SRSCT 


085A 


START 


0120 


STPST 


0B4B 


SUO 


0802 


SU1 


0803 


SM2 


0804 


SM3 


0805 


DATE 
EC NO. 
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TAPEO 0858 



o 




o 






















n 





r~ 


o 


. 


_ 



TAPEl 


0859 


TERN 


080B 


UNIT 


0C03 


URRO 


085C 


URWR 


085E 


VRWC 


097E 


WDNO 


0AD3 


WRCT 


0860 


WRFNC 


0B46 


WRIO 


0B44 


WRIX4 


0B48 


WRIX6 


0B47 


WRT 


OAEE 


WRT01 


OAFB 


WRT 02 


OBOE 


WRT03 


0B10 


WRT04 


0B2A 


WRT05 


0B38 
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0845, 

098B, 

0888, 

0669, 

0B85, 

0A88, 

0B2A, 

08C0, 

0A4D, 

OAFF, 

0AF3 

0AF4, 

0B08 

0B12 

08E3, 

0B29 

0B41 

OBOA 

0B14, 

OBOO 



084B 
09A5 
08AA 
OB 78 
0BF9 
OABC 
0B2E 
0800 
0A53 
0B03 

OAFC 



OBOE 



0B1A 



,0879,0890,08A3,0904,0912,0920,093E,0975, 
, 0903, 09D3, A01 ,0A16, OAF 1 .0B20.0B34 
,08A 0,0906, 0910, 0934, 0940 



,O95D,0A4O,0A49,OBCA,OBE2,0BE9 
OBOF 
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TABLE OF CONTENTS 
PARAGRAPH PAGE 

1. PURPOSE 1 

2. REQUIREMENTS 1 

3. OPERATING PROCEDURE I 

4. PRINTOUTS (NONE) 

5. COMMENTS. ... ....... 1 

6. APPENDIX I NONE) 

1. PURPOSE 

TO PROVIDE A MEANS WHEREBY THE 1800 DIAGNOSTIC MONITOR CAN PROVIOE 
PRINTOUTS IN ENGLISH FPR AIL DIAGNOSTIC MONITOR CONTROLLED PROGRAMS 

2. REQUIREMENTS 

THIS PROGRAM IS USED AS AN EXTENSION OF THE 1800 DIAGNOSTIC MONITOR. 
THIS PROGRAM MUST EE PLACED AS THE LAST PROGRAM IN THE CARD DECK TO 
BE LOADED INTO CORE. THE DIAGNOSTIC MONITOR AND ONE OR MORE TEST 
PROGRAMS MUST BE IN CORE AT THE TIME THIS PROGRAM IS LOADEO. 
THIS PROGRAM MAY BE USED ONLY IF CARD IPL IS BEING USEO. AND 
CANNOT BE STORED ON THE DISK USING THE DIMAL SYSTEM. 

3. OPERATING PROCEDURE 

PLACE THIS DECK AS THE LAST PROGRAM TO BE LOADED. 

OTHERWISE STANDARD MONITOR LOADING AND OPERATING PROCEDURES APPLY. 

REFER TO THE DIAGNOSTIC MONITOR DOCUMENTATION. 



4. PRINTOUTS 

NO PRINTOUTS ARE INITIATED BY THIS PROGRAM 

5. COMMENTS 

THE FIRST THREE CARDS IN THE ENGLISH MESSAGE OECK CONTAIN A SHORT PROGRAM. 
THE FUNCTIONS PERFORMED BY THIS PROGRAM ARE.. 

A. CHECK IF THE ENGLISH MESSAGE OECK LOADER SECTION OF THE MONITOR IS 
IN CORE ITHIS SECTION OF MONITOR MAY BE OVERLAID BY TEST PROGRAMS). 

B. IF THE ENGLISH DECK LOADER IS IN CORE TRANSFER CONTROL TO THAT SECTION. 

C. IF THE ENGLISH DECK LCACER IS NCT IN CORE TRANSFER TO THE ENGLISH DECK 
INTERFACE SECTION OF MONITOR. THE INTERFACE SECTION WILL THEN PRINT 

A MESSAGE IDENTIFYING THIS CONDITION AND HALT AT AN ERROR WAIT. 

THE REMAINING CARDS CONTAIN THE ENGLISH LANGUAGE MESSAGES. THESE CARDS 
ARE READ INTO CORE BY THE ENGLISH OECK LOADER IN THE MONITOR. ONLY THOSE 
MESSAGES WHICH APPLY TC PROGRAMS CURRENTLY IN CORE ARE RETAINED IN CORE. 



THE FORMAT OF THESE CAROS IS AS FOLLOWS.. 

COLUMNS 1 THRU 70 CONTAIN THE CODE FOR THE ENGLISH MESSAGES. 

COLUMN 71 CONTAINS A 12 BIT CHECK SUM. 

COLUMN 72 IS BLANK 

COLUMNS 73 THRU 75 CONTAIN THE PROGRAM IDENTIFICATION NUMBER. 

COLUMNS 76 THRU 80 CONTAIN A CARO SEQUENCE NUMBER. 

THE ENGLISH MESSAGES ARE CODED IN CARD COLUMNS 1 THRU 70 AS FOLLOWS.. 

THE FIRST COLUMN OF EACH MESSAGE IS A TERMINATOR (ALL ROWS PUNCHED). 
ROWS 12-5 OF THE SECOND COLUMN CONTAIN THE LAST TWO HEX DIGITS OF THE 
PID OF THE PROGRAM THE MESSAGE IS ASSOCIATED WITH. ROWS 6-9 OF THE 
SECOND COLUMN CONTAIN THE FIRST HEX DIGIT OF THE MESSAGE ID NUMBER (MID). 
THE THIRD COLUMN CONTAINS THE REMAINING THREE DIGITS OF THE MID. 
THE FOURTH COLUMN CONTAINS THE COUNT OF THE NUMBER OF CHARACTERS IN 
THE FIRST LINE TO BE PRINTED. THIS COUNT MUST BE EVEN AND IN THE 
RANGE OF TO 60. SUBSEQUENT COLUMNS (COUNT/2) CONTAIN THE CODE FOR 
THE ENGLISH CHARACTERS— TWO CHARACTERS PER COLUMN. THE CODE USED IS 
THE 6 BIT CODE DESCRIBEO BELOW. SUBSEQUENT LINES OF THE SAME MESSAGE 
BEGIN WITH THE CHARACTER COUNT (NO PID OR MID) FOLLOWED BY THE 
CHARACTER COOE. A SINGLE TERMINATOR MARKS THE END OF ONE MESSAGE 
AND THE BEGINNING OF THE NEXT. THE LAST MESSAGE IN THE LAST CARD ENDS 
WITH A TERMINATOR. LINES AND MESSAGES ARE PUNCHED IN CONTIGUOUS 
COLUMNS AND CARRY OVER FROM COLUMN 70 OF ONE CARD TO COLUMN 1 OF THE 
NEXT SO THAT ALL COLUMNS ARE USED. 



6 BIT CHARACTER CODE 



CHAR . BINARY 



HEX 



CHAR . BINARY 



HEX 



SPACE. 000000 


• 
• 


00 





. 000001 


. 


01 


1 


. 000010 


■ 


02 


2 


. 000011 


* 


03 


3 


. 000100 


• 


04 


4 


. 000101 


• 


05 


5 


. 000110 


. 


06 


6 


. 000111 


• 


07 


7 


. 001000 


• 


08 


8 


. 001001 


• 


09 


9 


. 001010 


• 


OA 


A 


. 001011 


. 


OB 


B 


. 001100 


• 


OC 


C 


. 001101 


• 


OD 


D 


. 001110 


• 


OE 


E 


. 001111 


• 


OF 


F 


. 010000 


• 


10 


G 


. 010001 


• 


11 


H 


. 010010 


. 


12 


I 


. 010011 


* 


13 


J 


. 010100 


. 


14 


K 


. 010101 


• 


15 


L 


. 010110 


• 


16 


N 


. 010111 


• 


17 


N 


. 011000 


• 


18 





• 







• 


011001 . 19 


P 


• 


011010 . 1A 


Q 


• 


011011 . IB 


R 


• 


011100 . 1C 


S 


• 


011101 . ID 


T 


• 


011110 . IE 


U 


• 


011111 . IF 


V 


• 


100000 . 20 


w 


• 


100001 . 21 


X 


• 


100010 . 22 


Y 


• 


100011 . 23 


z 


• 


100100 . 24 


+ 


• 


100101 . 25 


— 


• 


100110 . 26 


/ 


• 


100111 . 27 


* 


• 


101000 . 28 


( 


• 


101001 . 29 


) 


• 


101010 . 2A 


e 


• 


101011 . 2B 


. 


• 


101100 . 2C 


t 


* 


101101 . 20 


s 


• 


101110 . 2E 


a 


• 


101111 . 2F 


• 


• 


110000 . 30 


• 


• 


110001 . 31 
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TAULE OF CONTENTS 

PARAGRAPH. 

PAGE 

1. PURPOSE. . . . 

1 

2. PREREQUISITES 

I 

3. USE PROCEDURE. . . . 

1 

3.1 PROGRAM LOADING 

3.2 PROGRAM OPERATION 

3.3 PROGRAM TERMINATION 

<♦. PRINTOUTS 

2 

"».l STATUS MESSAGES 
••.2 COMMAND MESSAGES 
"«.3 ERROR MESSAGES 

5. COMMENTS 

3 

5.1 ROUTINE 1 - CHECK STORAGE PROTECT 

5.2 ROUTINE 2 - FEED A CARD AND PUNCH 

5.3 ROUTINE 3 - READ 8-8 (PACKED) AND CHECK 
>.<» ROUTINE 4 - READ STANDARD AND CHECK 

5.5 ROUTINE i - PUNCH <«0 COLUMNS 

5.6 ROUTINE 6 - READ AND PUNCH SAME CARD 

5.7 ROUTINE 7 - GANG PUNCH ANY PATTERN 

6. APPENDIX . 



3.2 



PROGRAM OPERATION 

STANDARD MONITOR OPERATING PROCEDURES APPLY. 

DETAILS R0CEDI,,RES ARE SUMMARIZED HERE « SEE DM USE PROCEDURE FOR 

1. CLEAR STORAGE 

2. LOAD DIAGNOSTIC MONITOR 

3. SELECT MODE OF EXECUTION 

"». SELECT MONITOR CONTROL OPTIONS 

5. SELECT PROGRAM OPTIONS FROM, 

TABLE PROGRAM CONTROL FUNCTION 
TABLE 1 ROUTINE SELECT FUNCTION 
TABLE 2 DEVICE SELECTION 

6. INSTRUCT MONITOR TO EXECUTE 



TABLE 



CONTROL FUNCTION 



6.1 



EDIT PROCEDURE 



1 . PURPOSE 

THIS PROGRAM CHECKS THE !«,« CARD READ/PUNCH FOR CO.-.RECT OPERATION. 

2. PREREQUISITES 

ItII S ^ PR0GRAM MUST RUN UNDER CONTROL OF THE DIAGNOSTIC MONITOR 

3. USE PROCEDURE 

3.1 PROGRAM LOADING 

US T E N PROCEdSrE D ! NG PR0CEDURE AS ASCRIBED IN THE DIAGNOSTIC MONITOR 



x 
x 

x o 
x 
x o 

XX 

X 

x o 

* . 

* . 

* 1 

XX 



"SENSE/PROGRAM^* \' III o^ C r'° N °° ' N SENSE/PROGRAM SWITCHES AND 1. 
SENSE/PROGRAM * 2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

\ \\ X I \ I I "' PRE » ^SO^E^ERRUPT 1 : ^ '" "^ ^ ""^ " 15 - 

:xxx«xxxxx«xxxix«xxxx K xxxxxxxxxxxxxxxxxxxxxxxxxx«xxxxx,xxxxxxxxxxxxxxxxxxxxxxx 

1 2 % U ? I A , E » TRY ,! W T CHES X DESCRIPTION « 

1 2 3 <» 5 6 7 8 9 10 11 12 13 14 is x * 

1 »•• BYPASS LOG PRINTOUT x 

t l * TV PE ALL ERRORS FOR EACH CARD READ * 

*". START PROGRAM CSEE NOTES BELOW) x 

---xxxxxxxxxxxxxxxxxxxxxxxxxA*^^ 

NOTES 

DATA ENTRY SWITCH 8 MUST BE SET ON WITH OTHER DESIRED OPTIONS 
IN FUNCTION 00. BIT 8 BEING SET ON IS AN I ND I CAT ON THAT THE 

THE C mf M^S^EtS"? D ' AGN0S "« ™ "E^lES 
ine 1HHZ DIAGNOSTIC. SWITCH 8 NEED BE SET ONLY niiBlur. 

INITIAL EXECUTION. PLACE SOME BLANKS IN HOPPER AND mIe ROY. 
IF A ROUTINE IS NOT SELECTED, ROUTINES 1 THRU 7 WILL execute 
COUPLE Je A 1: LY AN0 THE PR ° CRAM WILL « "™™W AFTER E Ro5uNE 7 IS 

IF A PARTICULAR ROUTINE HAS BEEN SELECTED FOR OPERATION THE PBOrPAM 

ssas.ssr.jsK's stk^-sbw- J£ ;~ ™ 

»^.. LAST CARD SE Q UEN CE IS INDICATED THE PROGRAM WILL FINISH THAT 
™ U P T KE N SS NPRO""- 1 - ™ EN 6 ° T ° ™ E m " R0UT,NE ' » > S NO^NECESsIrY 

VARIOUS PRINTOUTS WILL OCCUR WHILE THE PROGRAM IS OPERATING ««. 
TO PARAGRAPH «,, PRINTOUTS. FOR DETAILS WoKatIo£ *' ' " 
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TABLE 1 



ROUTINE SELECT FUNCTION 



:t o 
x 

X 
it 

•A 

:i 
x 
x 
x 
:: 



SENSE 
1 ? 3 



/PROGRAM 
4 5 6 7 



10 1111 



1. SET FUNCTION 01 IN SENSE/PROGRAM SWITCHES AND 1. 

2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

3. SET IN DESIRED ROUTINE IN DATA ENTRY SWITCHES 12-15. 

4. PRESS CONSOLE INTERRUPT. 



DATA ENTRY SWITCHES 
1 2 3 4 5 6 7 8 9 10 11 12 1J 






1 

1 
1 
1 



KKiiiixxrxitititxxxxiiifXxxxxxxxitxiixxxxxxxxxxxxxxxxxx 
* DESCRIPTION K 

IU5* x 

0.. RUN ALL ROUTINES SEQUENTIALLY * 

1.. ROUTINE 1- CHECK STATUS * 

1 0.. ROUTINE 2-FEED AND PUNCH CARDS * 
1 1., ROUTINE J-READ 8-8 AND CHECK (PACKED)* 
0.. ROUTINE 4-READ 12 BITS PER COLUMN * 

1.. ROUTINE 5-PUNCH 40 COLUMNS " 

1 0.. ROUTINE 6-READ 40 COLUMNS AND PUNCH * 
11.. ROUTINE 7-PUNCH SUPPLIED DATA * 

x 

ititXXXitXitXXXXXXXXXXiiXXXXItXifXXKXXXXXXltXXXXXXXXXX 



TABLE 2 DEVICE SELECTION 

txxititiiititicxititititititxis j. SET FUNCTION 10 IN SENSE/PROGRAM SWITCHES AND 1. 
SENSE/PROGRAM *. 2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

1 2 3 l» S 6 7 » 3. SET MODE OF OPERATION IN DATA ENTRY SWITCHES 0-15. 

* 4. PRESS CONSOLE INTERRUPT. 

1 1 1 1 1 * 

x 

iiiXitititititiSitititliitXXXititXXititXXXXititXXiCXXXXitXXXXXXXXXXXXXXXXXXXXXXXXXXXXMXXXXXXXXXXXXX 

DATA ENTRY SWITCHES * DESCRIPTION x 

1 2 i "* 5 b 7 8 9 10 11 12 13 1<» 15 * x 

x 

1 SELECT SECOND DEVICE X 

x 

EXXXXXXXXXiiXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXK 

3.3 PROGRAM TERMINATION 

THE PROGRAM WILL TERMINATE AUTOMATICALLY AFTER ROUTINE 7 IS COMPLETED 
OR IT MAY BE TERMINATED BY DESELECTING IT. 



4. PRINTOUTS 



4.1 



THIS PROGRAM FOLLOWS THE PRINTOUT FORMAT ESTABLISHED BY THE 1800 
DIAGNOSTIC MONITOR. REFER TO SECTION 4. PRINTOUTS. OF THE DIAGNOSTIC 
MONITOR DOCUMENTATION. 

STATUS MESSAGES 



PID MID RID RAD MODI 
OF00 A001 000R XXXX DEAD 



THIS PRINTOUT INDICATES THAT THE LAST CARD INDICATOR WAS ON WHEN THE 
m2'S DSW WAS SENSED. THE PROGRAM WILL FINISH THAT ROUTINE AND 60 
TO THE NEXT ROUTINE OR LOOP IF THAT ONE HAS BEEN SELECTED. 



<l.2 



COMMAND MESSAGES 



PIO MID RID RAD MODI 
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OFO0 C001 0001 XXXX AOAO 



THIS PRINTOUT INSTRUCTS THE OPERATOR TO SET DATA ENTRY SWITCH • 
ON AND ANY OTHER DESIRED OPTIONS TO BE SELECTED AT THIS TIME 
UNDER FUNCTION 00 AFTER HE HAS VERIFIED THAT THE PUNCH IS CLEAR. 
THIS IS A SAFETY CHECK TO PREVENT THE ACCIDENTAL PUNCHING 
OF PROGRAMS THAT MAY FOLLOW THE 1442 FUNCTION TEST. AFTER THE 1442 
IS CLEAR OF DIAGNOSTICS PLACE SOME BLANKS IN THE HOPPER AND MAKE 
READY . 

0F00 C002 000R XXXX FEED 

WHEN THIS PRINTOUT OCCURS PROCEED AS FOLLOWS. PLACE BLANK CARDS IN 
THE HOPPER AND MAKE READY. 

0F00 C003 000R XXXX AIDE 

THIS PRINTOUT INDICATES THE 1442 IS NOT READY. 



0F00 C004 0007 XXXX ABCD 



THIS PRINTOUT REQUESTS OPERATOR TO PLACE IN 1442 HOPPER A CARD 
PUNCHED WITH WHATEVER PATTERN THE OPERATOR DESIRES, FOLLOWED BY A 
DECK OF BLANK CARDS, AND TO MAKE THE 1442 READY. 

0F00 COOS 000R XXXX FED2 

THIS PRINTOUT INDICATES THAT THE PUNCHED CARDS ARE TO BE TAKEN OUT OF 
STACKER AND PLACED IN THE HOPPER. THEN MAKE THE 1442 READY. 
IGNORE ANY BLANK CARDS IN THE STACKER. 

4.3 ERROR MESSAGES 
PID MID RID RAD MODI MOD2 MOD3 MOD4 MODS MOD6 MOD7 

OFO0 E001 OOOR XXXX ICED 

THIS ERROR PRINTOUT INDICATES THAT NO INTERRUPT WAS RECEIVED AFTER A 
READ, FEED, OR PUNCH COMMAND WAS INITIATED. THE PROGRAM KILL CONTINUE 
TO OPERATE A fTER THE PRINTOUT OCCURS. 



0F00 E002 OOOR XXXX ADOO 



THIS ERROR PRINTOUT INDICATES THE 1442 WAS BUSY WHEN ITS DSW WAS 
SENSED* 



OFOO E003 OOOR XXXX B1EE ZZZZ 0000 



THIS ERROR PRINTOUT INDICATES A DSW ERROR OCCURRED. 
•BITS IN ERROR', ZZZZ IS THE ERROR DSW, AND LAST WO 



EXPECTED DSW. 



B1EE STANDS FOR 
WORD IS THE 
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0FOO L004 000R XXXX CDEE ZZZZ YYYV CCXX 



Jill l RR ° R PR,NT0UT INDICATES AN ERROR WHEN COMPARING DATA READ WITH 
DATA PREVIOUSLY PUNCHED. CDEE STANDS FOR CARD IN ERROR. ZZZZ 
REPRESENTS THE DATA READ. YYYY REPRESENTS THE CORRECT DATA CCXX 
REPRESENTS THE CARD COLUMN WHERE THE ERROR OCCURRED? IN THE CASE OF 

in U p T ack E d'mode. ERROR MAY BE ' N ™ E C0L0MN BEF0re ' b "ause of read?no 



0F00 EOOS 000R XXXX A1EE 



THE S BUs! NT ° UT ,NMCATES A PAR,TV ERR0R IN THE B IT CONFIGURATION ON 



0F00 E006 0001 XXXX CODE 



THIS PRINTOUT INDICATES THAT THE STORAGE PROTECT BIT IN THE DSW 
FAILED AFTER A READ OPERATION. 



OF00 E007 O00R XXXX BADO 



^ S „£ RINT0UT WILL INDICATE THAT THE DEVICE WAS RELEASED WHEN IT 
HAD BEEN PREVIOUSLY RELEASED. THE PROGRAM WILL CONTINUE TO RUN. 



0F00 E008 000R XXXX FDCC 



THIS PRINTOUT INDICATES A FEED CHECK AT THE READ STATION. 
RELOAD CARDS TO SEE I F IT IS FALSE OR VALID. ST *TION. 



NPRO AND 



5 . COMMENTS 

NORMAL PROGRAM OPERATION- 

IF A ROUTINE IS NOT SELECTED IN TABLE 1, ROUTINES 1-7 WILL EXECUTE 
SEQUENTIALLY. AT THE END OF EACH ROUTINE, THE CUSTOMER ENGINEER HAS AN 
OPTION TO EITHER CONTINUE TO RUN IN THAT ROUTINE OR PROCEED TO THE NEXT 
ROUTINE. AT THE END OF EACH ROUTINE, THE PROGRAM WILL PRINT OUT A 
MESSAGE (IW NOT READY). IF THE HOPPER IS LEFT EMPTY AND THE Ilk START 
KEY IS PRESSED, THE PROGRAM WILL PROCEED TO THE NEXT ROUUNEV I F | A RDS 
ARE PLACED IN THE HOPPER AND THE 1042 START KEY IS PRESSED, THE PROGRAM 
WILL CONTINUE TO RUN IN THAT SAME ROUTINE. ' PROGRAM 

1L A tS E c A L BETWEEN ,/0 COMMANDS IS DESIRED SET BIT ON f CONTROL FUNCTION 
AND THIS WILL ALLOW THE CLUTCH TO LATCH UP. WITH THE CARD STARTING AND 
STOPING IT WILL SHOW UP PROBLEMS OF WEAK OR WORN BELTS? LOOSE SET SCREW 
AND OTHER LINKAGE ASSOCIATED WITH THE CARD TRANSPORT. SCREWS, 

5.1 ROUTINE 1 

ROUTINE 1 CHECKS DIFFERENT FEATURES THAT ARE NOT CHECKED ELSEWHERE 
IN THE PROGRAM. AT THE BEGINNING, BIT 8 OF FUNCTION 00 MUST BE SET 
TO INDICATE THE PUNCH IS CLEAR OF OTHER DIAGNOSTICS AND READY TO 
BEGIN THE TEST. A STORAGE PROTECT BIT IS SET AND A CARD IS READ 
TO CHECK THE STORAGE PROTECT FEATURE FOR CORRECT OPERATION. AFTER 
THIS IS COMPLETED THE PROGRAM WILL PROCEED. ^ckmtion. AFTER 

5.2 ROUTINE 2 

ROUTINE 2 CHECKS FEEDING, PUNCHING, AND STACKING. THE CARDS ARE 
:RE C pLACED°rN A ST^ER N NO:°2 R ? D '" "^ """^ ° NLY ™ E ""» PUNCH " 



5.} ROUTINE J 

R ouJ!!!l E I "ru^A. 1 ? packed mooe C8 - 8) ' THE cards ™at WERE PUNCHED BY 

ROUTINE 2. TWO CARD COLUMNS ARE STORED IN ONE STORAGE LOCATION THE 
ODD NUMBERED COLUMN (DIGITS 12 THROUGH 5) IS PLACED IN BIT TOs\'tIoEs 

CdIg R ? S UG ?, 1 ^L A h S I? RAGE L0CAT «™' A »° ^HE EVEN NUMBERED COLUW ° N$ 
iVrVHJl THR0UGH 5 > ,S PLACED IN BIT POSITIONS THROUGH 7. ALL 
DATA ARE CHECKED AGAINST THE DATA FROM WHICH THEY WERE PUNCHED IF AN 
ERROR IS FOUND, A PRINTOUT OCCURS AND THE CARD IS SELECTED ?n?6 
STACKER NO.2. THE ERROR PRINTOUT CONTAINS THE PID, MESSAGE D NUMBER 
ROUTINE ID NUMBER, ROUTINE ADDRESS, BITS IN ERROR THE CORRECT Tts ' 
AND THE CARD COLUMN IN WHICH THE ERROR OCCURRED? N THE CASE OF 111' 
FORMAT THE COLUMN PRINTOUT IS EVEN, WHICH WOULD INDICATE THAT ThIoDD 
COLUMN BEFORE IT OR THAT EVEN COLUMN WAS IN ERROR. 

5.4 ROUTINE 4 

ROUTINE 4 READS IN STANDARD HODE (I E., ONE COLUMN PER WORD) DIGITS 

tuo,!m R u UGH 9 ° F ™ E CARD ARE PLACED ,N B « T S THOUGH 11? BITS 2 
THROUGH 15 ARE LEFT BLANK. THE DATA READ ARE CHECKED AGA NST THE 
DATA FROM WHICH THEY WERE PUNCHED. (AS IN ROUTINE 3). 

5.5 ROUTINE 5 

ROUTINE 5 PUNCHES THE FIRST 40 COLUMNS OF A CARD. THE CARDS PUNCHED 
BY ROUTINE 5 ARE USED BY ROUTINE 6 FOR A READ AND PUNCH TESt! 

5.6 ROUTINE 6 

?2c T V^. 6 D READS ™ E CAR0S THAT WERE PUNCHED BY ROUTINE 5 AND CHECKS 
ncL^0 TA READ AGAINST W »AT SHOULD HAVE BEEN PUNCHED. I F AN ERROR IS 
DETECTED, THE ERROR CARD WILL BE SELECTED IN STACKER 2 AND AN EoSu 
PRINTOUT WILL OCCUR. AFTER THE DATA is CHECKED, THE FIE^D U 
P E ^ E ? W C ^ E -' C0LUMN l IS PLACE0 ,N COLUMN 80?' COLUMN 2 ?s 
AFTFP T^ ntTi 79 ' ETO * A " ER THE F l E <-t>-REVERSING OPERATION AND 
AFTER THE READ AREA HAS BEEN CLEARED, A PUNCH COMMAND IS INITIATED 
THAT CAUSES THE LAST 40 COLUMNS TO BE PUNCHED. THiTrOUTINE DOES not 
A ^ MAT,CALLY CHECK ™ E ACHING OPERATION. HOWEVER, BY FOLDING EACH 
CARD PUNCHED BY THIS ROUTINE IN HALF (FOLDED BETWEEN COLUHNS 40 AN^D 

^£^?IF££*°' "«" F ° R ™ "" ™- T ™<™ 

5.7 ROUTINE 7 

haq T Ia E , L R « AD L A CARD THAT HAS BEEN PUNCHED WITH SOME PATTERN THAT 
HAS FAILED OR CAUSED PUNCH CHECKS. THIS DATA IS THEN PUNCHED INTO 
BLANK CARDS THAT FOLLOW. IF THIS ROUTINE IS LOOPED, A NEW PATTERN MAY 
BE USED AFTER THE LAST CARD INDICATOR HAS COME ON? THE PUNCHING IS 
SpERA^OR BY ™ E PR ° GRAM ' BUT ""* BE '""*" DUALLY BY ?HE " 
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6.1 EDIT PROCEDUR 

THE FOLLOWING 
MUST DE THE L 
TO PREPARE OR 

DDEF STANDS FOR DE 
THE LAST EDIT CARD 


E 

E 

AS' 

M 

VI 
IS 


OIT PROCED 

r CARDS IN 
3DIFY EDIT 

CE DEFINIT 
THE *END 


UR 

T 
D 

101 
ED 


E IS FOR CARD INPUT. THE EDIT PROCEDURE FOR P 
HIS PROGRAM DECK. THE FOLLOWING FORMS ARE PRO 
\RDS, FILL IN THE NECESSARY DATA IN THE FORMS 
* EDIT FIELD. IT INCLUDES: 1. THE INTERRU 

2. THE ILSW Bl 

„ 3. THE CHANNEL 

IT CARD . THE INFORMATION IN THIS CARD INCLUD 


APER TAPE INPUT IS LOCATED IN THE PAPER TAPE EDIT I 
VIDED TO AID IN MANUALLY PREPARING THESE EDIT CARDJ 
PRIOR TO PUNCHING THE CARDS. CARD COLUMNS THAT AF 

FT LEVEL ASSOCIATED WITH THIS DEVICE (USE HEX N0TA1 
T POSITION ASSOCIATED WITH THIS DEVICE (UES HEX N01 
ASSIGNED TO THIS DEVICE (0-8). IF THIS IS A DPC [ 
ES: |. AN*E" IN COLUMN 1. 

2. THE PID FOR THIS PROGRAM (COL. 2-3). 

3. A TERMINATOR WORD OF *FFFF" (COL. 7-10). 


ITILITY PR 
. OR UPDAT 
IE SHADED 

'ION. 00-1 
AT ION, 0- 
(EVICE, PU 


OGF 
INC 
SH( 

7) 
F) 

NCI- 


1AM DOCUME 
i EXISTING 
)ULD BE LE 

ian"f"i 


MTA 
EC 
FT 

H T 


TION. TH 
IT CARDS. 
BUNK. 

•HE CARD CI 


E f 
1 

DLL 


■ROPER EDI 
F IT IS N 

MN.. 


T C 
ECE 


,ARDS 

:ssary 


















\kkl-\ 

DDEF 

ENTRY 1 


21 


1442-2 

DDEF 

ENTRY 2 
















COLUMN 


1 


a 

i 

< 
I 
C 
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c 

j 
■c 

X. 

3 


u 


5 


6 


7 


8 


UI 

o 

z 

UI 

3 

UI 

«/> 

o 
cc 

s 
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UI 

m 

z 

10 
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u. 

o 

ec 

UI 
00 

s: 
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t- 
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UI 
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13 


< 
ec 

UI 
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UI 

ec 
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< 
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* 

r 
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u 
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ec 
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CARD CONTAINS THE DDEF'S FOR THE 1442'S. IF THIS SYSTEM HAS ONLY ONE 1442, THEN ONLY ONE DDEF ENTRY IS REQUIRED IN THIS CARD. 
CARD END IS THE * END EDIT CARD* PUNCH EXACTLY AS IS SHOWN. 
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SAMPLE OUTPUT OF ROUTINE 2. 
USED AS INPUT FOR ROUTINES 3 AND 4. 
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SAMPLE OUTPUT OF ROUTINE 5. 
USED AS INPUT FOR ROUTINE 6. 
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0000 
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1000 

F400 0908 
0400 0B60 
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6F00 0809 
4C80 0818 
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0828 1 07FF 
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ORG 


*£2047 


BEGIN 


EQU 


300 


START 


EQU 


BEGINE1 


END 


EQU 


STARTE1 


LOG 


EQU 


ENDC1 


ERROR 


EQU 


L0GC1 


REQDV 


EQU 


ERR0RE1 


RELOV 


EQU 


REQDVE1 


CRCK 


EQU 


RELDVE1 


* 






* 







ft**********************:********************** 



***** 

* 

PID 
RID 

RAD 
SWO 
SW1 
SW2 
SW3 
ILP 
LPA 
EPA 
MLSCF 



TERM 



* 

EDIT1 

EDIT2 

* 

EDIT 

* 
* 
***** 

* 

RPDVA 

* 

DSM4A 
KEEP3 



PST 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 

DC 



DC 
DC 

DC 

XIO 

NOP 

EOR 

STO 

LDX 

STX 

BSC 



PROGRAM STATUS TABLE ********** 



/OFOO 

/OOOO 

/OOOO 

/OOOO 

/OOOO 

/OOOO 

/OOOO 

RTO 

RTO 

RTEND 

/OOOO 

/OOOO 

/OOOO 

/FFFF 

PEND 

/OOO 

/OOO 

/OOO 

/OOOO 

/OOOO 

/OOOO 
/OOOO 

/OOOO 



PID 

ROUTINE NUMBER 
ROUTINE ADDR 
BIT SW FUNC 

1 

2 

3 
INITIALIZATION ADDR 
LOOP PROGRAM ADDR 
END PROG ADDR 
1ST MLSCF NORMAL 
2ND MLSCF BUSY 
3RD MLSCF TEST INTR 
TERMINATOR 



ON-LINE SWITCH 
COMPATIBILITY SWITCH 

RDR-PCH 1 DDEF 
RDR-PCH 2 DDEF 

INTR AND CHAN USED 



IDENTIFY INTERRUPT ROUTINE***** 



/OOOO 
/OOOO 

/OOOO 
L SENSE 

L CNTL 
L WAS 
L3 IRECD 
L3 MLSCF 
I 0SW4A 



INTERRUPT SWITCH 
AREA CODE AND MOD 

ADDR OF RETURN 

SENSE OSW 

USE FOR TRAP 

CK FOR OP COMPLETE 

SAVE DSW BITS 

SET MLSCF ENTRY 



SE 



SX 



STARTER ROUTINE *************** 



CALL MONITOR 
ADDR OF PST 



***** 

* 

* 

GO BSI I BEGIN 

DC PID 
* 

********************************************* 
* 

***** RTO INITIALIZATION ************ 

* 
* 
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01MAY66 
415120A 



01JUL66 
415178 



15MAY67 
411731 



01SEP67 
411857 



010CT67 
411875 



80F00000 


0829 OOOO 


RTO 


DC 




/OOOO 




80F00010 




* 










80F00020 


082A C0D9 




LD 




SW2 


DEVICE SELECTION 


80F00030 


082B 180E 




SRA 




14 




80F00040 


082C 1 4C04 0830 




BSC 


L 


NBTWO, E 


BCH ON BIT 1 


80F00050 


082E C0E4 




LD 




EDIT! 


RDR-PCH 1 DDEF 


80F00060 


082F 7001 




MDX 




XX 




80F00070 




* 










80F00080 


0830 C0E3 


NBTWO 


LD 




EDIT2 


RDR-PCH 2 DDEF 


80F00090 


0831 D0E3 


XX 


STO 




EDIT 


DDEF CONTORL 


80F00100 




* 










80F00110 


0832 4480 0131 


CALL 


BSI 


I 


REQDV 


REQUEST DEVICE 


80F00120 




* 










80F00130 


0834 1 0848 




DC 




BSY 


BUSY ADDRESS 


80F00140 


0835 1 0815 




DC 




EDIT 


ADDR INTR AND CHAN 


80F00150 


0836 1 0817 




DC 




RPDVA 


ADDR AREA CODE 


80F00160 


0837 1 080C 




DC 




TERM 


TERMINATOR 


80F00170 




* ' 










80F00180 


0838 620D 




LDX 


2 


13 


LOAD XR 2 


80F00190 


0839 1 C600 0B2E 


BUILD 


LD 


L2 


FDACD 


LOAD FUNCTION 


80F00200 


083B E8DB 




OR 




RPDVA 


AREA CODE 


80F00210 


083C 1 D600 0B2E 




STO 


L2 


FDACD 


SET IN I/O COMMAND 


80F00220 


083E 72FE 




MDX 


2 


-2 


ADJ XR 2 


80F00230 


083F 70F9 




MDX 




BUILD 




80F00240 




* 










80F00250 


0840 1 4400 0A3E 




BSI 


L 


RPREL 


RELEASE DEVICE 


80F00260 




* 










80F00270 


0842 1 CCOO 0B1E 




LDD 


L 


RID1 


RT NUMBER AND ADDR 


80F00280 


0844 1 4400 0A86 




BSI 


L 


RTU 


USE UPDATE ROUTINE 


80F00290 


0846 1 4C60 0829 




BSC 


I 


RTO 


RETURN 


80F00300 




* 










80F00310 


0848 1 6500 0832 


BSY 


LDX 


LI 


CALL 


GET MLSCK ENTRY 


80F00320 


084A 1 6D00 0809 




STX 


LI 


MLSCF 


SET MLSCF ENTRY 


80F00330 


084C 4C80 012D 




BSC 


I 


START 


RETURN TO MONITOR 


80F00340 




* 










80F00350 


084E 1 CCOO 0B1E 


SET1 


LDD 


L 


RID1 


RT NUMBER AND ADDR 


80F00360 


0850 1 4400 0A86 




BSI 


L 


RTU 


USE UPDATE ROUTINE 


80F00370 


0852 4C80 012D 




BSC 


I 


START 


RETURN TO MONITOR 


80F00380 




* 










80F00390 




********************************************* 


80F00400 




* 










80F00410 




***** 






ROUTINE 1- 


• CHECK STATUS ****** 


80F00420 




* 










80F00430 




* 










80F00440 


0854 COAO 


RT1 


LD 




SWO 


BIT SWITCH STORAGE 


80F00450 


0855 1008 




SLA 




8 




80F00460 


0856 1 4C28 0867 




BSC 


L 


RTlBttZ 


BCH ON MINUS 


80F00470 


0858 1 CCOO 0B3E 




LDD 


L 


MSTAR 


MSG- SET BIT 8 FN 00 


80F00480 


085A 1 4400 0A28 




BSI 


L 


TYPE 


USE TYPE ROUTINE 


80F00490 




* 










8OFO0500 


085C 1 C400 0802 


RT1A 


LD 


L 


SWO 


BIT SWITCH STORAGE 


80F00510 


085E 1008 




SLA 




8 




80F00520 


085F 1 4C28 0867 




BSC 


L 


RT1B.EZ 


BCH ON MINUS 


80F00530 




* 










80F00540 


0861 1 6500 085C 




LDX 


LI 


RT1A 


GET MLSCF 


80F00550 


0863 1 6D00 0809 




STX 


LI 


MLSCF 


SET MLSCF 


80F00560 


0865 4C80 012D 




BSC 


I 


START 


RETURN TO MONITOR 


80F00570 




* 










80F00580 


0867 1 4400 0A13 


RT1B 


BSI 


L 


KNOW 


CHECK BIT SWITCHES 


80F00590 


0869 1 7400 0811 




MDX 


L 


TERME5.0 


ON-LINE SW SET 


80F00600 


086B 700E -■■ 




MDX 


- - 


RT1C 


* YES 


80F00610 


086C 1 2C41 0BB6 




STS 


L 


RAREA,/41 


SET STG PROTECT 


80F00620 


086 E 1 4400 0A4E 




BSI 


L 


RPREQ 


ROUTINE REQUEST 


80F00630 


0870 1 OCOO 0B36 




XIO 


L 


READX 


READ TO CK STG PROT 


80F00640 

OAtAAtEA 


0872 1 4400 0A8E 


* 


BSI 


L 


RTL 


USE TIMING LOOP 


BUrUUoSU 
80F00660 


0874 1 2C40 0BB6 




STS 


L 


RAREA./40 


REMOVE STG PROTECT 


80F00670 


0876 1 CCOO 0B52 




LDD 


L 


MSPV 


MSG- STG PROT VIOL 


PROG ID 080F-0 


DATE 28FEB66 01MAY66 


01JUL66 


15MAY67 01SEP67 010CT67 


PAGE 1 


EC NO. 415120 415120A 


415178 


411731 411857 411875 



SC 



SC 
X 



SC 



SC 



SC 



SC 



SC 
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80F006B0 

80F00690 

80F00700 

80F00710 

80F00720 

80F00730 

80F00740 

80F00750 

80F00760 

80F00770 

80F00780 

80F00790 

80F00791 

80F00792 

80F00793 

80F00794 

80F00795 

80F00800 

80F00810 

80F00820 

80F00830 

80F00840 

80F00850 

80F00860 

80F00870 

80F00880 

80F00890 

80F00900 

80F00910 

80F00920 

80F00930 

80F00931 

80F00933 

80F00935 

80F00940 

80F00950 

80F00960 

80F00970 

80F00980 

80F00990 

80F01000 

80F01010 

80F01020 

80F01030 

80F01040 

80F01050 

80F01060 

80F01070 

80F01080 

80F01090 

80F01100 

80F01110 

80F01120 

80F01130 

80F01140 

80F01150 

80F01160 

80F01170 

80F01180 

80F01186 

80F01188 

80F01190 

80F01200 

80F01210 

80F01220 

80F01230 

80F01240 

80F01250 



PROG 10 
PAGE 



080F-O 
1A 



I I I 



i * II I 
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( I 



I ' I, 



I 



3 



DATE 
EC NO. 



0878 1 
087A 1 
087C 1 
087E 1 
0880 1 



0882 1 



0884 
0886 



4400 
4400 
OCOO 
4C04 
4400 
CCOO 
4400 
4C80 



0A28 
0A4E 
0838 
OBOB 
0A3E 
0B22 
0A86 
0120 



0888 1 CCOO 0B20 
088A 1 4400 0A86 
088C 4C80 0120 



088E 1 CCOO 0B40 
0890 1 4400 0A28 

0892 1 C400 0B63 
0894 1 D400 0B8D 

0896 1 4400 0A4E 
0898 1 OCOO 0B2E 
089A 1 4400 0A8E 
089C 7001 
089D 7011 

089E 1 OCOO 0B3A 

08A0 1 4400 0A4E 

08A2 1 OCOO 0B30 

08 A4 1 4400 0A8E 

08 A6 7001 

08A7 7007 

08A8 1 4400 0A4E 
08AA 1 OCOO 0B2E 
08AC 1 4400 0A8E 
08AE 70E3 

08AF 1 4400 OAOA 
08B1 1 4400 0A13 

08B3 1 CCOO 0B24 
08B5 1 4400 0A86 
08B7 4C80 0120 



08B9 1 CCOO 0B46 
08BB 1 4400 0A28 

08BD 1 4400 0A4E 



08BF 
08C1 
08C3 
08C4 
08C6 



1 OCOO 0B36 

1 4400 0A8E 

700A 

1 4400 OAOA 
1 4400 0A13 



08C8 1 CCOO 0826 
08CA 1 4400 0A86 
08CC 4C80 012D 



28FEB66 
415120 



01MAY66 
415120A 



RT1C 



* 
SET2 



BSI L TYPE USE TYPE ROUTINE 

BSI L RPREO REQUEST DEVICE 

XIO L SENSE SENSE DSW 

BSC L NRDY,E BCH ON NOT READY 

BSI L RPREL RELEASE DEVICE 

LDO I RIDX RT NUMBER AND ADDRE 

BSI L RTU USE UPDATE ROUTINE 

BSC I START RETURN TO MONITOR 

LDD L RID2 RT NUMBER AND ADDR 

BSI L RTU USE UPDATE ROUTINE 

BSC I START RETURN TO MONITOR 

************************$ 



SC 
SC 

SC 
SC 

SC 
X 

SC 
SC 
X 



******************** 

***** 
* 
* 

RT2 LDD 
BSI 
* 

RT2A LD 
STO 

* 

BSI 
XIO 
BSI 
MDX 

MDX 



ROUTINE 2- FD A CARD OR PUNCH * 



L 

L 

L 
L 

L 

L 
L 



* 
RT2B 



* 
RT2C 



SKIP 

* 
SET3 



XIO 
BSI 
XIO 
BSI 
MDX 
MDX 

BSI 
XIO 
BSI 
MDX 

BSI 
BSI 



MFEED 
TYPE 

MA40 
WAREAC39 

RPREQ 

FDACD 

RTL 

RT2B 

SKIP 

STACK 

RPREQ 

PUNCH 

RTL 

RT2C 

SKIP 



L RPREQ 
L FDACD 
L RTL 
RT2A 

L FDLCD 
L KNOW 



LDD L RID3 
BSI L RTU 
BSC I START 



* 

***** 

* 

***** 

* 

* 

RT3 

* 
RT3A 



* 
SET4 



MSG- LOAD BLANKS 
USE TYPE ROUTINE 



REMOVE TERMINATOR 

REQUEST OEVICE 
FEED A CARD 
USE TIMING LOOP 



SELECT STACKER 
ROUTINE REQUEST 
PUNCH COMMAND 
USE TIMING LOOP 



REQUEST DEVICE 
FEED A CARD 
USE TIMING LOOP 
REPEAT CYCLE 

FEED LAST CARD 
CHECK BIT SWITCHES 

RT NUMBER AND ADDR 
USE TIMING LOOP 
RETURN TO MONITOR 



SC 



SC 
SC 



SC 



SC 
SC 



SC 

SC 



SC 
X 



**************************************** 

ROUTINE 3- READ 8-8 6 CHECK *** 



LDD 
BSI 

BSI 
XIO 
BSI 
MDX 
BSI 
BSI 

LOD 
BSI 

BSC 



01JUL66 
415178 



MFED2 
TYPE 

RPREQ 

READX 

RTL 

CHEC 

FDLCD 

KNOW 



L RID4 
L RTU 
I START 



15MAY67 
411731 



MSG- LOAD FROM STK 2 
USE TYPE ROUTINE 

ROUTINE REQUEST 
READ 8-8 PACKED 
USE TIMING LOOP 

FEED LAST CARD 
CHECK BIT SWITCHES 

RT NUMBER AND ADDR 
USE UPDATE ROUTINE 
RETURN TO MONITOR 



SC 



SC 

SC 
SC 



SC 
X 



01SEP67. 
411857 



010CT67 
411875 
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80F01260 

80F01270 

80F01280 

80F01290 

80F01300 

80F01310 

80F01320 

80F01330 

80F01340 

80F01350 

80F01360 

80F01370 

80F01380 

80F01390 

80F01400 

80F01410 

80F01420 

80F01430 

80F01440 

80F01450 

80F01460 

80F01470 

80F01480 

80F01490 

80F01500 

80F01510 

80F01520 

80F01530 

80F01540 

80F01550 

80F01560 

80F01570 

80F01580 

80F01590 

80F01600 

80F01610 

80F01620 

80F01630 

80F01640 

80F01650 

80F01660 

80F01670 

80F01680 

80F01690 

80F01700 

80F01710 

80F01720 

80F01730 

80F01740 

80F01750 

80F01760 

80F01770 

80F01780 

80F01790 

B0F01800 

80F01810 

80F01820 

80F01830 

80F01840 

80F01850 

80F01860 

80F01870 

80F01880 

60F01890 

80F01900 

80F01910 

80F01920 

80F01930 
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PAGE 
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080F-0 
2 



DATE 
EC NO. 



08CE 62AF 
08CF 63D8 



08D0 
08D2 
08D3 
0805 
08D6 
08D7 
08D9 
08DA 
080C 
0800 
08DE 
08E0 
08E2 
08E3 
08E5 
08E6 
08E7 



1 C600 

1803 

1 4C04 
188D 
7201 

C600 
1803 
4C04 
1805 
1088 
D400 
F700 
7201 
4420 
7301 
70E9 
70D5 



0BB7 
08E8 

0BB7 
08F2 



0B61 
OBDE 

09E0 



08E8 1805 
08E9 1 D400 0B61 
08EB 1 F700 OBDE 
08ED 1 4420 09E0 
08EF 7301 
08F0 700C 
08F1 70CB 



08F2 
08F3 
08F4 
08F6 
08F8 
08FA 
08FB 
08FC 



1805 
1088 

D400 0B61 
F700 OBDE 
4420 09E0 
7301 
7001 
70C0 



08FD 1011 
08FE 1 D400 0B61 
0900 1 F700 OBDE 
0902 1 4420 09E0 

0904 7301 

0905 70F7 

0906 70B6 



0907 
0909 
090B 
090D 
090F 
0911 
0912 
0914 



CCOO 
4400 
4400 
OCOO 
4400 
700A 



1 4400 
1 4400 



0B46 
0A28 
0A4E 
0B34 
0A8E 

OAOA 
0A13 



0916 1 CCOO 0B28 
0918 1 4400 0A86 
091A 4C80 012D 



28FEB66 
415120 



01MAY66 
415120A 



CHEC 

* 
SPEC 



LOX 
LDX 

LD 
SRA 
BSC 
SRT 
MDX 
LD 
SRA 
BSC 
SRA 
SLT 
STO 
EOR 
MDX 
BSI 
MDX 
MDX 
MDX 
* 
* 
* 

D00R1 SRA 
STO 
EOR 
BSI 
MDX 
MDX 
MDX 
* 
* 
* 

D00R2 SRA 
SLT 
STO 
EOR 
BSI 
MDX 
MDX 
MDX 
* 



2 -81 

3 -40 

L2 WAREAE81 

3 
L D00R1.E 

13 
2 1 
L2 WAREAC81 

3 
L D00R2.E 

5 

8 
L 02BE 
L3 RAREA640 

2 1 

L ERRFD.Z 

3 1 
SPEC 
RT3A 



5 
L 02BE 
L3 RAREAE40 
L ERRFD.Z 
3 1 

XXXXX 

RT3A 



XXXXX 



SLA 
STO 
EOR 
BSI 

MDX 
MDX 
MDX 



5 

8 
L 02BE 
L3 RAREAC40 
L ERRFD.Z 
3 1 

XXXXX 

RT3A 

17 
L 02BE 
L3 RAREAS40 
L ERRFD.Z 

3 1 

XXXXX 
RT3A 



WAREA COL CTR 
RAREA COL CTR 

DATA PUNCHED 

CK TERM ODD WORD 
SHIFT ACC INTO Q REG 

DATA PUNCHED 

CK TERM EVEN WORD 

CLEAR BITS 8 THRU 12 

POS HALVES IN ACC 

STO IN OUGHT TO BE 

DATA READ 

ADJ COL COUNT PCH 

BCH ON BITS 

ADJ COL COUNT RD 

CK NEXT COLUMN 



TERM FD ODD WORD *** 

CLEAR BITS 8 THRU 12 
STO IN OUGHT TO BE 
DATA READ 
BCH ON BITS 



TERM FD EVEN WORD ** 

CLEAR BITS 8 THRU 12 
POS HALVES IN ACC 
STO IN OUGHT TO BE 
DATA READ 



SC 



SC 



SC 



CLEAR ACC TO ZERO 

STO IN OUGHT TO BE 

DATA READ 

BCH ON BITS SC 



* 

***** 
* 
***** 

* 

RT4 
RT4A 



* 
SET5 



********************************** 1)I * <[ 3£3 
ROUTINE 4- READ 12 BITS/COL 6 



LDD 
BSI 
BSI 
XIO 
BSI 
MDX 
BSI 
BSI 

LDD 
BSI 

BSC 



01 JUL 66 
415178 



SC 



L MFED2 MSG- LOAD FROM STK 2 

L TYPE USE TYPE ROUTINE 

L RPREQ ROUTINE REQUEST 

L READ READ COMMAND 

t RTL DELAY LOOP SC 

CHECK-1 

L FDLCD FEED LAST CARD SC 

L KNOW CHECK BIT SWITCHES SC 

L RID5 RT NUMBER AND ADDR 

L RTU USE UPOATE ROUTINE SC 

I START RETURN TO MONITOR X 



15MAY67 
411731 



01SEP67 
411857 



010CT67 
411875 



i I I 
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( 



80F01940 

80F01950 

80F01960 

80F01970 

80F01980 

80F01990 

80F02000 

80F02010 

80F02020 

80F02030 

80F02040 

80F02050 

80F02060 

80F02070 

80F02080 

80F02090 

80F02100 

80F02110 

80F02120 

80F02130 

80F02140 

80F02150 

80F02160 

80F02170 

80F02180 

80F02190 

80F02200 

80F02210 

80F02220 

80F02230 

80F02240 

80F02250 

80F02260 

80F02270 

80F02280 

80F02290 

80F02300 

80F02310 

80F02320 

80F02330 

80F02340 

80F02350 

80F02360 

80F02370 

80F02380 

80F02390 

80F02400 

80F02410 

80F02420 

80F02430 

80F02440 

80F02450 

80F02460 

80F02470 

80F02480 

80F02490 

80F02500 

80F02510 

80F02520 

80F02530 

80F02540 

80F02550 

80F02560 

80F02570 

80F02580 

80F02590 

80F02600 

80F02610 



PROG ID 
PAGE 



080F-0 
2A 



I I I 



I 
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091C 62B0 
091D 1 C600 0BB6 
091F 1803 
0920 1 4C04 092C 

0922 1003 

0923 1 D400 0B61 
0925 1 F600 0C06 
0927 1 4420 09E0 
0929 7201 
092A 70F2 
092B 70DF 


LDX 
CHECK LD 
SRA 
BSC 
SLA 
STO 
EOR 
BSI 
HOX 
MDX 
MDX 


2 -80 
L2 WAREAS80 

3 
L TERMR,E 

3 
L 02BE 
L2 RAREAE80 
L ERRFDtZ 
2 1 

CHECK 

RT4A 


COL COUNT 

DATA PUNCHED 

REMOVE 3 BITS 

CK FOR TERMINATOR 

ADJ BACK 

STO IN OUGHT TO BE 

DATA READ 

BCH ON BITS 

ADJ COL COUNT 

CK NEXT COLUMN 






* 
***** 

* 


t 




TERMINATOR FOUND ROUTINE ****** 




092C 1801 
092D 1004 
092E 7001 


* 
TERMR 

* 
XXX 


SRA 
SLA 
MDX 




1 
4 
XXXtl 


REMOVE TERMINATOR 
ADJ BACK 




092F 1011 
0930 1 D400 0B61 
0932 1 F600 0C06 
0934 1 4420 09E0 

0936 7201 

0937 70F7 

0938 70D2 


SLA 
STO 
EOR 
BSI 
MDX 
MDX 
MDX 


L 

L2 
L 
2 


17 

02BE 

RAREAC80 

ERRFD.Z 

1 

XXX 

RT4A 


CLEAR ACC TO ZERO 
STO IN OUGHT TO BE 
DATA READ 
BCH ON BITS 
ADJ COL COUNT 






*****************************f*************** 






***** 

* 






ROUTINE 5- 


■ PUNCH 40 COLUMNS *** 




0939 1 C400 0B64 
093B 1 D400 0B8D 
093D 1 CCOO 0B40 
093F 1 4400 0A28 


* 
RT5 

* 
DUP 

* 


LD 
STO 
LDD 
BSI 


L 
L 
L 

L 


WA40A 
WAREAC39 
MFEED 
TYPE 


CHANGE PCH DATA 
MSG- LOAD BLANKS 
USE TYPE ROUTINE 




0941 1 OCOO 0B3A 
0943 1 4400 0A4E 
0945 1 OCOO 0B30 
0947 1 4400 0A8E 
0949 70F7 
094A 1 OCOO 0B3A 
094C 1 4400 OAOA 
094E 1 4400 0A13 


XIO 
BSI 
XIO 
BSI 
MDX 
XIO 
BSI 
BSI 


L 
L 

L 
L 

L 

L 
L 


STACK 

RPREO 

PUNCH 

RTL 

DUP 

STACK 

FDLCD 

KNOW 


SELECT STACKER 2 
ROUTINE REOUEST 
PUNCH COMMAND 
USE TIMING LOOP 

SELECT STACKER 2 
FEED LAST CARD 
CHECK BIT SWITCHES 




0950 1 CCOO 0B2A 
0952 1 4400 0A86 
0954 4C80 01 20 


SET6 

* 


LDD 
BSI 
BSC 


L 

L 

I 


RID6 

RTU 

START 


RT NUMBER AND ADDR 
UPDATE ROUTINE 
RETURN TO MONITOR 






* 

*****************######**:#************ ****### 






***** 

* 






ROUTINE 6- 


RD AND PCH ********* 




0956 1 CCOO 0B46 
0958 1 4400 0A28 
095A 1 C400 09DE 
095C 1 0400 09E5 
095E 1 C400 09DF 
0960 1 D400 09E9 


* 

RT6 


LDD 

BSI 

LD 

STO 

LD 

STO 


L 
L 
L 

L 
L 
L 


MFED2 

TYPE 

SHA 

COLA 

SHB 

COLB 


MSG- LOAD FROM STK 2 
USE TYPE ROUTINE 
ADJ 40 COLUMNS 

ADJ 40 COLUMNS 




0962 1 4400 0A4E 
0964 1 OCOO OB 34 
0966 1 4400 0A8E 


RT6A 


BSI 
XIO 
BSI 


L 
L 
L 


RPREO 

READ 

RTL 


ROUTINE REQUEST 
READ COMMAND 
USE TIMING LOOP 


DATE 
EC NO. 


28FEB66 01MAY66 
415120 415120A 


01JUL66 
415178 


15MAY67 01SEP67 010CT67 
411731 411857 411875 



SC 



SC 



SC 



SC 



SC 
SC 



SC 
X 



E 
SC 
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80F02620 
80F02630 
80F02640 
80F02650 
80F02660 
80F02670 
80F02680 
80F02690 
80F02700 
80F02710 
80F02720 
80F02730 
80F02740 
80F02750 
80F02760 
80F02770 
80F02780 
80F02790 
80F02800 
80F02810 
80F02820 
80F02830 
80F02840 
80F02850 
80F02860 
80F02870 
80F02880 
80F02890 
80F02900 
80F02910 
80F02920 
80F02930 
80F02940 
80F02950 
80F02960 
80F02970 
80F02980 
80F02990 
80F03000 
80F03010 
80F03020 
80F03030 
80F03040 
80F03050 
80F03060 
80F03070 
80F03080 
80F03090 
80F03100 
80F03110 
80F03120 
80F03130 
80F03140 
80F03150 
80F03160 
80F03170 
80F03180 
80F03190 
80F03200 
80F03210 
80F03220 
PR03 80F03230 
80F03240 
PR04 80F03250 
80F03260 
80F03270 
80F03280 
SC 80F03290 



PROG ID 
PAGE 



« I 



4 



i i 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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I I I < 



PART NO. 2196386 
PAGE 3A 



080F-0 
3 



DATE 
EC NO. 



0968 7003 

0969 1 4400 OAOA 
096B 7031 



096C 
096D 
096F 
0970 
0972 
0973 
0975 
0977 
0979 
097A 
097B 

097C 
097D 
097E 
097F 
0980 
0982 
0984 
0986 
0987 
0988 
0989 



62D8 

C600 0B8E 
1803 

4C04 097C 
1003 

D400 0B61 
F600 OBOE 
4420 09E0 
7201 
70F2 
700C 

1801 

1004 

7001 

1011 

D400 0B61 

F600 OBDE 

4420 09E0 

7201 

70F7 

63FE 

62D8 



098A 1 C600 OBDE 



098C 
098E 



D700 0C07 
1010 



098F 1 D600 OBDE 

0991 73FF 

0992 7201 

0993 70F6 

0994 1 7408 0C05 

0996 1 4400 0A4E 
0998 1 OCOO 0B32 
099A 1 4400 0A8E 
099C 70C5 

099D 1 C400 09DA 
099F D045 
09A0 1 C400 09DB 
09A2 D046 
09A3 1 4400 0A13 

09A5 1 CCOO 0B2C 
09A7 1 4400 0A86 
09A9 4C80 012D 



09 AB 
09AD 
09AF 
09B1 
09B3 
09B5 
09B7 
09B8 



CCOO 
4400 
4400 
OCOO 
4400 
C400 
E81E 
D400 



0B44 
0A28 
0A4E 
OB 34 
0A8E 
OC05 

0C05 



09BA 1 4400 0A4E 
09BC 1 OCOO 0B2E 
09BE 1 4400 0A8E 



28FEB66 
415120 



01MAY66 
415120A 



* 

NEXT 

COMP 



* 
CHIP 



XXXX 



* 
FLIP 



* 

GO NOW 



* 
SET7 



* 

* 

***** 

* 

* 

RT7 



MDX 
BSI 
MDX 

LDX 

LD 

SRA 

BSC 

SLA 

STO 

EOR 

BSI 

MDX 

MDX 

MDX 

SRA 
SLA 
MDX 
SLA 
STO 
EOR 
BSI 
MDX 
MDX 
LDX 
LDX 

LD 

STO 

SLA 

STO 

MDX 

MDX 

MDX 

MDX 

BSI 
XIO 
BSI 
MDX 

LD 

STO 

LO 

STO 

BSI 

LDD 
BSI 
BSC 



LDD 

BSI 

BSI 

XIO 

BSI 

LD 

OR 

STO 

BSI 
XIO 
BSI 



01JUL66 
415178 



NEXT 
L FDLCD 
GONOW 

2 -40 

L2 WAREAC40 

3 
L CHIP,E 

3 
L 02BE 
L2 RAREAC40 
L ERRFD,Z 
2 1 

COMP 

FLIP-2 

1 

4 

XXXX61 

17 
L 02BE 
L2 RAREA&40 
L ERRFD.Z 

2 1 
XXXX 

3 -2 
2 -40 



FEED LAST CARD 



DATA PUNCHED 

REMOVE 3 BITS 

CK FOR TERMINATOR 

ADJ BACK 

STO IN OUGHT TO BE 

DATA READ 

BCH ON BITS 

ADJ COL COUNT 



REMOVE TERMINATOR 
ADJ BACK 

CLEAR ACC TO ZERO 
STO IN OUGHT TO BE 
DATA READ 
BCH ON BITS 
ADJ COL COUNT 



SC 



SC 



SC 



L2 RAREAC40 
L3 RAREAE81 

16 
L2 RAREA&40 
3 -1 
2 1 
FLIP 
L RAREAE79.8 SET TERMINATOR 



DATA TO BE FLIPPED 
NEW LOCATION 

ELIMINATE OVERPUNCH 



L RPREQ 
L PUNCX 
L RTL 
RT6A 

L LGA 
COLA 

L LGB 
COLB 

L KNOW 

L RID7 
L RTU 
I START 



ROUTINE REQUEST 
PUNCH COMMAND 
USE TIMING LOOP 



ADJ 80 COLUMNS 

ADJ 80 COLUMNS 

CHECK BIT SWITCHES 

RT NUMBER AND ADDR 
USE UPDATE ROUTINE 
RETURN TO MONITOR 



ROUTINE 7- NEW PCH DATA 6 PUNCH 



MABCD MSG- ANY PATTERN £ 

TYPE USE TYPE ROUTINE 

RPREQ ROUTINE REQUEST 

READ READ NEW DATA 

RTL USE TIMING LOOP 

RAREAC79 LAST COL OF DATA 

BIT12 SET TERMINATOR 

RAREAS79 REPLACE DATA £ TERM 

REQUEST DEVICE 
FEED A CARD 
USE TIMING LOOP 



L RPREQ 
L FDACD 
L RTL 



15MAY67 
411731 



01SEP67 
411857 



010CT67 
411875 



80F03300 
80FQ3310 
80F03320 
80F03330 
80F03340 
80F03350 
80F03360 
80F03370 
80F03380 
80F03390 
80F03400 
80F03410 
80F03420 
60F034-30 
80F03440 
80F03450 
80F03460 
80F03470 
80F03480 
80F03490 
80F03500 
80F03510 
80F03520 
80F03530 
80F03540 
80F03550 
80F03560 
80F03570 
80F03580 
80F03590 
80F03594 
80F03595 
80F03600 
80F03610 
80F03620 
80F03630 
80F03640 
80F03650 
80F03660 
80F03670 
80F03680 
80F03690 
80F03700 
PR03 80F03710 
80F03720 
80F03730 
80F03740 
80F03750 
80F03760 
80F03770 
80F03780 
80F03790 
80F03B00 
80F03810 
80F03820 
80F03830 
80F03840 
80F03850 
80F03860 
80F03870 
80F03880 
80F03890 
80F03900 
80F03910 
80F03920 
80F03930 
80F03940 
80F03950 



PROG ID 
PAGE 



SC 



PR04 
SC 



SC 
X 



E 
SC 



SC 

SC 
SC 



080F-0 
3A 



I « < 



, 



I 1 



I 
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09C0 
09C2 
09C4 
09C6 
09C8 
09C9 
09CB 
09CC 



OCOO 0B3A 
4400 0A4E 
OCOO 0B32 
4400 0A8E 
70F7 

OCOO 0B3A 
403E 
4046 



L STACK 
L RPREO 
I PUNCX 
I. RTL 

RECK 
L STACK 
FDLCD 
KNOW 



09C0 1 2C40 0BB6 
09CF 4C80 012E 

09D1 0000 
09D2 1 4400 0A3E 
0904 1 4C80 09D1 



RECK XIO 
BSI 
XIO 
BSI 
MOX 
XIO 
BSI 
BSI 

STS 
BSC 

* 

RTEND DC 
BSI 

BSC 

* 
* 
*************************** It „) t *$ 1> , Ml , j[ 33 ljl £, t .^^ ljl 

***** STORAGE AREA ****************** 

* 
* 



RAREAt/40 
ENO 

/OOOO 
RPREL 
RTEND 



SELECT STACKER 2 
ROUTINE REQUEST 
PUNCH COMMAND 
USE TIMING LOOP 
REPAET NO LAST CARD 
SELECT STACKER 2 
FEED LAST CARD 
CHECK BIT SWITCHES 

REMOVE STG PROTECT 
GO TO MONITOR 



ROUTINE RELEASE 
RETURN TO PROGRAM 



SC 



SC 
SC 



SE 
SC 
SX 



09D6 
09D7 
09D8 
09D9 
09DA 
09DB 
09DC 
09D0 
09DE 
09DF 



0008 
CCOO 
0800 
0000 
7251 
72AF 
0000 
8000 
7229 
72D7 



BIT12 DC 
CCOO DC 
CNTL DC 
CONST DC 
LGA MDX 
LGB MDX 
SAVE DC 
DC 
SHA MDX 
SHB MDX 
* 



/0008 

/CCOO 

/0800 

/OOOO 

81 

-81 

/OOOO 

/8000 

41 

-41 



TERMINATOR BIT 
CARD COLUMN 



80 COLUMN COUNTER 
80 COLUMN COUNTER 



40 COLUMN COUNTER 
40 COLUMN COUNTER 



PR03 
PR04 



PR03 
PR04 



*******************************,. ^s^*,,,,,,,,,,,,,,,.^ 

* 

***** COMMON USE ROUTINES *********** 

* 
* 

***** ERROR FOUND ROUTINE *********** 



09E0 OOOO 


* 
ERRFD 


DC 




/OOOO 


ADDR STG SE 


09E1 1 F400 0B61 




EOR 


L 


02BE 




09 E3 1 0400 0B60 


♦ 


STO 


L 


WAS 




09E5 7251 


COLA 


MOX 


2 


C81 


MDX 2 81 OR MDX 2 41 PMO 


09E6 1000 


KEEP1 


NOP 







MDX WILL SKIP THIS 


09E7 1 6E00 0B62 




STX 


L2 


COL 


COLUMN NUMBER 


Q9E9 72AF 


COLB 


MDX 


2 


-81 


CORRECT XR2 PMO' 


09EA 1000 


KEEP2 


NOP 







MDX WILL SKIP THIS 


09 EB 1 C400 0B62 




LD 


L 


COL 


COLUMN NUMBER 


09ED E8E9 




OR 




CCOO 




09EE 1 0400 0B62 


* 


STO 


L 


COL 


CD COL PLUS COL NUMB 


09F0 1 6E00 0B38 




STX 


L2 


SENSE 


SAVE XR2 


09F2 1 6F00 0B3A 




STX 


L3 


STACK 


SAVE XR3 


09F4 1 CCOO 0B4E 




LDD 


L 


MCDEE 


MSG- CARD ERROR 


09F6 6104 




LDX 


1 


4 


NUMBER OF MODIFIERS 


09F7 1 4400 0AE8 




BSI 


L 


ERRA 


USE ERROR ROUTINE SC 


09F9 1 6680 0B38 




LDX 


12 


SENSE 


RESTORE XR2 


09FB 1 6780 0B3A 




LDX 


13 


STACK 


RESTORE XR3 


09FO 1 7402 09E0 




MDX 


L 


ERRFD, 


2 ADD 2 TO RETURN ADDR 


09FF 1 OCOO 0B3A 




XIO 


L 


STACK 


SELECT ERROR CARD 


0A01 1 C400 0802 




LO 


L 


SWO 


BIT SWITCH STG 


0A03 100A 




SLA 




10 




0A04 1 4C90 09E0 




BSC 


I 


ERRFD, 


BCH PLUS OR ZERO SX 


&ATE 28FEB66 01MAY66 


01JUL66 


15MAY67 


01SEP67 010CT67 


tC NO. 415120 415120A 


415178 


411*731 


411857 411875 
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80F03960 

80F03970 

80F03980 

80F03990 

80F04000 

80F04010 

80F04020 

80F04030 

80F04040 

80F04050 

80F04060 

80F04070 

80F04080 

80F04090 

80F04100 

80F04110 

80F04120 

80F04130 

80F04140 

80F04150 

80F04160 

80F04170 

80F04180 

80F04190 

80F04200 

80F04210 

80F04220 

80F04230 

80F04240 

80F04250 

80F04260 

80F04270 

80F04280 

80F04290 

80F04300 

80F04310 

80F04320 

80F04330 

80F04340 

80F04350 

80F04360 

80F04370 

80F04380 

80F04390 

80F04400 

80F04410 

80F04420 

80F04430 

80F04440 

80F04450 

80F04460 

80F04470 

80F04480 

80F04490 

80F04500 

80F04510 

80F04520 

80F04530 

80F04540 

80F04550 

80F04560 

80F04570 

80F04580 

80F04590 

80F04600 

80F04610 

80F04620 

80F04630 



PR06 ID 
PAGE 



I 



I 



I 



I 
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080F-0 
4 



DATE 
EC NO. 



0A06 1 74FE 09E0 
OA08 1 4C80 09E0 



OAOA OOOO 
OAOB 1 4400 0A4E 
OAOD 1 OCOO 0B2E 
OAOF 1 4400 0A3E 
0A11 1 4C80 OAOA 



0A13 
0A14 
0A16 
0A18 
0A1A 
0A1C 
0A1E 

0A20 
0A21 
0A22 
0A23 
0A24 
0A25 
0A26 
0A27 



OOOO 

C400 0803 

4C98 0A13 

E400 0BA1 

D400 0800 

6780 0800 

4F80 0A20 

OOOO 
084E 
0888 
08B3 
08C8 
0916 
0950 
09A5 



0A28 OOOO 
0A29 1 OCOO 0B5A 
0A2B 1 C400 0802 
0A2D 100D 
0A2E 1 4CA8 0A28 

0A30 4480 012F 

0A32 1 0B58 

0A33 1 0A38 

0A34 OOOO 

0A35 1 6580 0A28 
0A37 7002 

0A38 1 6500 0A30 
0A3A 1 6D00 080A 
0A3C 4C80 012D 



0A3E OOOO 
0A3F 1000 

0A40 1 C400 0815 
0A42 1 4CB0 0A3E 

0A44 4480 0132 
0A46 1 0815 
0A47 1 080C 



28FEB66 
415120 



01MAY66 
415120A 



MDX 
BSC 

* 
* 
***** 

* 

FDLCD DC 
BSI 
XIO 
BSI 
BSC 

* 

* 

***** 

* 

* 

KNOW DC 
LD 
BSC 
AND 
STO 
LDX 
BSC 

* 

SETUP DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

* 

***** 

* 

* 

TYPE DC 
STD 
LD 
SLA 
BSC 



TYPEA BSI 
DC 
DC 
OC 

* 

LDX 
MOX 

* 

TYPEB LDX 

0UT1 STX 

BSC 

* 

***** 

* 

* 

RPREL OC 

NOP 
* 

LD 

BSC 

BSI 

DC 

DC 



01JUL66 
415178 



ERRFD, -2 
ERRFD 



SUB 2 RETURN ADDR 
RETURN TO ROUTINE 



FEED LAST CARD **************** 

/OOOO RETURN ADDR 

RPREQ ROUTINE REQUEST 

FDACD FEED A CARD 

RPREL RELEASE DEVICE 

FDLCD RETURN TO PROG 



KNOW BIT SWITCH SETTINGS ****** 



SX 



SE 



SC 
SX 



RETURN ADDR SE 

ROUTINE NUMBER 
BCH ON ZERO SX 

SAVE BITS 13 THRU 15 
STORE RT NUMBER 



SET UP NEW ROUTINE 
NOT USED 



/OOOO 
L SW1 
I KNOW,£- 
L K0007 
L RIO 
13 RID 
13 SETUP 



SET1 

SET2 

SET3 

SET4 

SET5 

SET6 

SET7 



PRINT ROUTINE ***************** 



SX 



/OOOO 

MSGL 

SWO 

13 

TYPE,CZ 



I LOG 
INSTL 
TYPEB 
/OOOO 

II TYPE 
0UT1 

LI TYPEA 
LI MLSCFtl 
I START 



RETURN ADDR 

CHANGE MESSAGE £ NUM 

BIT SWITCH STORAGE 

RETURN TO PROG ON - 

CALL ON LOG 
ADDR OF MSG 
BUSY ADDR 



BUSY ROUTINE 
RETURN TO MONITOR 



SE 

SX 
SC 



ROUTINE RELEASE DEVICE ******** 



/OOOO 



L EDIT 

I RPREL, -Z 

I RELDV 
EOIT 
TERM 



RETURN ADDR 



BCH ON PLUS 

RELEASE DEVICE 
ADDR UNTR AND CHAN 
TERMINATOR 



SX 



SE 



SC 



15MAY67 
411731 



01SEP67 
411857 



010CT67 
411875 



I I i ( 
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80F04640 

80F04650 

80F04660 

80F04670 

80F04680 

80F04690 

80F04700 

80F04710 

80F04720 

80F04730 

80F04740 

80F04750 

80F04760 

80F04770 

80F04780 

80F04790 

80F04800 

80F04810 

80F04820 

80F04830 

80F04840 

80F04850 

80F04860 

80F04870 

80F04880 

80F04890 

80F04900 

80F04910 

80F04920 

80F04930 

80F04940 

80F04950 

80F04960 

80F04970 

80F04980 

80F04990 

80F05000 

80F05010 

80F05020 

80F05030 

80F05040 

80F05050 

80F05060 

80F05070 

80F05080 

80F05090 

80F051OO 

80F05110 

80F05120 

80F05130 

80F05140 

80F05150 

80F05160 

80F05170 

80F05180 

80F05190 

80F05200 

80F05210 

80F05220 

80F05230 

80F05240 

80F05250 

80F05260 

80F05270 

80F05280 

80F05290 

80F05300 

80F05310 



PROG 10 
PAGE 



080F-0 
4A 



( I < 
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0A48 1 6S80 0A3E 
0A4A 1 6D00 080A 
0A4C 4CB0 012D 



0A4E 0000 
0A4F 1000 
OA50 1 C400 0815 
0A52 1 4CA8 0A4E 

0A54 4480 0131 



0A56 
0A57 

0A58 
0A59 



1 0A80 

1 0815 

1 0817 

1 080C 



0A5A 1 C400 0B39 
0A5C 1 ECOO 0817 
0A5E 1 D400 0B39 

0A60 1 OCOO 0B38 
0A62 1 4404 OBOB 

0A64 1 OCOO 0B38 
0A66 100F 
0A67 1 4C10 0A6F 

0A69 1 6500 0A64 
0A6B 1 6D00 0809 
0A60 4C80 012D 

0A6F 1 C400 0802 
0A71 1 4C10 0A70 
0A73 6500 0100 
0A75 1 6000 0A7F 

0A77 1 6500 0A7A 
0A79 7008 

0A7A 1 74FF 0A7F 
0A7C 70FA 
0A70 1 4C80 0A4E 

0A7F 0000 

0A80 1 6500 0A54 
0A82 1 6D00 0809 
0A84 4C80 0120 



0A86 0000 
0A87 1 OCOO 0800 
0A89 1090 
0A8A 1 D400 0809 
0A8C 1 4C80 0A86 



0A8E 0000 
0A8F 6700 FOOO 



* 

***** 

* 

* 

RPREQ 



* 
LABEL 



LOX 
STX 
BSC 



DC 

NOP 

LO 

BSC 



* 
SEE 



* 
RDY 



* 
RETN1 

* 
RETN2 

RETN3 

DLYCT 

STDBY 
RETN4 

* 

* 

***** 

* 

* 

RTU 



* 

***** 

* 

RTL 



DC 
DC 
DC 
DC 

LD 
OR 
STO 

XIO 
BSI 

XIO 
SLA 
BSC 

LDX 
STX 
BSC 

LO 
BSC 
LDX 
STX 

LDX 
MDX 

MDX 
MDX 
BSC 

DC 

LDX 
STX 
BSC 



DC 

STD 

SLT 

STO 

BSC 



DC 
LOX 



II RPREL 
LI MLSCFC1 
I START 



GET RETURN ADRS 
SET MLSCF 

RETURN TO MONITOR 



ROUTINE REQUEST DEVICE ******** 



/OOOO 

EDIT 
RPREQ, £Z 



RETURN ADDR 



SE 



BSI I REQDV 



STDBY 
EDIT 
RPDVA 
TERM 

L SENSEE1 
L RPDVA 
L SENSEE1 

L SENSE 
L NRDY,E 

L SENSE 

15 
L RDY,- 

Ll SEE 
LI MLSCF 
I START 

L SWO 
L RETN3,- 
Ll /0100 
LI DLYCT 

LI RETN2 
RETN4 

L DLYCT.-l 

RETN1 
I RPREO 

/OOOO 

LI LABEL 
LI MLSCF 
I START 



BCH ON HAVE DEVICE SX 

REQUEST DEVICE SC 

BUSY ADDRESS 

ADDR INTR AND CHAN 

ADDR AREA CODE £ MOD 

TERMINATOR 



SENSE DSW 

USE NRDY IF B15 IS 1 SC 

SENSE DSW 

BCH ON READY 

GET MLSCF ENTRY 

SET MLSCF 

RETURN TO MONITOR 

BIT SWITCH STORAGE 
CHECK BIT FOR DELAY 
DELAY COUNT 
SET UP COUNTER 

GET MLSCF ENTRY 

REDUCE COUNT 

RETURN TO PROG SX 

DELAY COUNTER 

GET BUSY ADDR 

SET MLSCF 

RETURN TO MONITOR 



ROUTINE UPDATE **************** 



/OOOO RETURN ADDR SE 

RID NEW RT NUMBER AND ADDR 

16 MOVE Q TO ACC 

MLSCF NEW MLSCF ENTRY 

RTU RETURN TO ROUTINE SX 



ROUTINE LOOP ****************** 



/OOOO 
L3 /FOOO 



RETURN ADDR 
TIMING CONSTANT 



SE 
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BATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415120A 



01JUL66 15MAY67 01SEP67 010CT67 
415178 411731 411857 411875 



80F05320 

80F05330 

80F05340 

80F05350 

80F05360 

80F05370 

80F05380 

80F05390 

80F05400 

80F05410 

80F05420 

80F05430 

80F05440 

80F05450 

80F05460 

80F05470 

80F05480 

80F05490 

80F05500 

80F05510 

80F05520 

80F05530 

80F05540 

80F05550 

80F05560 

80F05570 

80F05580 

80F05590 

80F05600 

80F05610 

80F05620 

80F05630 

80F05640 

80F05650 

80F05651 

80F05652 

80F05653 

80F05654 

80F05655 

80F05656 

80F05657 

80F05658 

80F05659 

80F05660 

80F05661 

80F05670 

80F05672 

80F05673 

80F05680 

80F05690 

80F05700 

80F05710 

80F05720 

80F05730 

80F05740 

80F05750 

80F05760 

80F05770 

80F05780 

80F05790 

80F05800 

80F05610 

80F05820 

80F05830 

80F05840 

80F05850 

80F05860 

80F05870 
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PART NO. 
PAGE 



2196386 
5A 



08OF-O 
5 



DATE 
EC NO. 



0A91 1 6F00 09D9 




STX 


L3 CONST 






80F05880 






* 










80F05890 




0A93 1 6500 0A99 


RTLA 


LDX 


LI RTM 






80F05900 




0A95 1 6D00 080B 




STX 


LI MLSCFE2 


SET MLSCF ENTRY 




80F05910 




0A97 4C80 012D 


* 


BSC 


I START 


RETURN TO MONITOR 


SC 


80F05920 
80F05930 




0A99 1 7401 09D9 


RTM 


. MDX 


L CONST, 1 




SE 


80F05940 




0A9B 70F7 




MDX 


RTLA 






80F05950 




0A9C 1 CCOO 0B48 




LDD 


L M1CED 


MSG- NO INTERRUPT 




80F05960 




0A9E 4089 


* 


BSI 


• TYPE 


USE TYPE ROUTINE 


SC 


80F05970 
80F05980 




0A9F 1 C400 0B60 


IRECO 


LD 


L WAS 


GET DSW BITS £ CHECK 




80F05990 




0AA1 1 4C18 OABA 




BSC 


L REGO,£- 


BCH ON NO BITS 




80F06000 




0AA3 6100 




LDX 


1 


ALL ZEROS 




80F06010 




0AA4 1 6D00 0B61 




STX 


LI 02BE 


CLEAR OUGHT TO BE 




80F06020 




0AA6 630F 


* 


LDX 


3 15 






80F06030 
80F06040 




0AA7 1340 


INERR 


SLCA 


3 


LOOK FOR BITS 




80F06050 




0AA8 1 F400 09DD 




EOR 


L SAVEE1 


REMOVE BIT FOUND 




80F06060 




OAAA 1 D400 090C 




STO 


L SAVE 


SAVE REST OF BITS 




80F06070 




OAAC 1 6E00 0B38 




STX 


L2 SENSE 


SAVE XR2 




80F06080 




OAAE 1 6F00 0B3A 


* 


STX 


L3 STACK 


SAVE XR3 




80F06090 
80F06100 




OABO 1 4780 0AC7 




BSI 


13 DSWBT 


SELECT ERROR 


SC 


80F06110 




0AB2 1 6680 0B38 




LDX 


12 SENSE 


RESTORE XR2 




80F06120 




0AB4 1 6780 0B3A 




LDX 


13 STACK 


RESTORE XR3 




80F06130 




0AB6 1 C400 09DC 




LD 


L SAVE 






80F06140 




0AB8 1 4C20 0AA7 


* 


BSC 


L INERR, Z 


BCH ON BITS 




80F06150 
80F06160 




OABA 4083 


REGO 


BSI 


RPREL 


ROUTINE RELEASE 


SC 


80F06170 




OABB 1 OCOO 0B38 


REGOT 


XIO 


L SENSE 


SENSE DSW 




80F06180 




OABD 1 4C18 0AC5 




BSC 


L ZIP,£- 


BCH NO BITS 




80F06190 




OABF 1 6500 OABB 




LDX 


Ll REGOT 


GET MLSCF 




80F06200 




0AC1 1 6D00 080A 




STX 


LI MLSCFE1 


SET MLSCF 




80F06210 




0AC3 4C80 012D 


* 


BSC 


I START 


RETURN TO MONITOR 


SX 


80F06220 
80F06230 




0AC5 1 4C80 0A8E 


ZIP 

* 
* 


BSC 


I RTL 


RETURN TO PROG 


SX 


80F06240 
80F06250 
80F06260 






***** 




DSW TABLES 


FOR LEVEL 4 ******** 




80F06270 






* 










80F06280 






* 










80F06290 




0AC7 1 OBOB 


DSWBT 


DC 


NRDY 


15 NOT READY 




80F06300 




0AC8 1 0AD7 




DC 


BUSY 


14 BUSY 




80F06310 




0AC9 1 OADD 




DC 


ERR1 


13 




80F06320 




OACA 1 OADD 




DC 


ERR1 


12 




80F06330 




OACB 1 OADD 




DC 


ERR1 


11 




80F06340 




OACC 1 OADD 




DC 


ERR1 


10 




80F06350 




OACD 1 OADD 




DC 


ERR1 


9 




80F06360 




OACE 1 OADD 




DC 


ERR1 


8 




80F06370 




OACF 1 OAFA. 




DC 


FDCK 


7 FD CK-RD STATION 




80F06380 


• 


OADO 1 0B11 




DC 


STGPT 


6 STG PROTECT VOIL 




80F06390 




0AD1 1 0B18 




DC 


PAROR 


5 PARITY ERROR 




80F06400 




0A02 1 OADD 




DC 


ERR1 


4 OP COMPLETE 




80F06410 




0A03 1 OBOO 




DC 


LCD 


3 LAST CARD 




80F06420 




0AD4 1 OADD 




DC 


ERR1 


2 ANY ERROR 




80F06430 




0AD5 1 OADD 




DC 


ERR1 


1 




80F06440 




0AD6 1 OADD 


* 
* 


DC 


ERR1 







80F06450 
80F06460 
80F06470 






***** 




BUSY ROUTINE ****************** 




80F06480 






* 










80F06490 






* 










80F06500 




0AD7 OOOO 


BUSY 


OC 





RETURN ADDR 


SE 


80F06510 




0AD8 C871 




LDD 


MADOO 


MSG- BUSY 




80F06520 




0AD9 1 4400 0A28 




BSI 


L TYPE 


USE TYPE ROUTINE 


SC 


80F06530 




OADB 1 4C80 0AD7 


* 


BSC 


I BUSY 


RETURN TO PROG 


SX 


80F06540 
80F06550 




Z8FEB66 01MAY66 


01JUL66 


15MAY67 01SEP67 010CT67 




PROG ID 


080F-0 


415120 .415120A 


415178 


411731 411857 411875 




PAGE 


5A 
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***** 

* 




ROUTINE 


ERR1 *****************! 




OADO 0000 
OADE 1 C400 0B60 
OAEO 1006 
OAEl 1 4CA8 OADO 
0AE3 C868 
0AE4 6103 
0AE5 4002 
0AE6 1 4C80 OADD 


* 
ERR1 

* 


OC 

LD 

SLA 

BSC 

LDD 

LOX 

BSI 

BSC 


L 

I 

I 


/OOOO 
WAS 
6 

ERRl.tZ 
MB1EE 
L 3 
ERRA 
ERR1 


RETURN ADDR 
OSW STORAGE 

BCH ON BIT 6 
MSG- DSW ERROR BITS 
MODIFIER NUMBER 
USE ERROR ROUTINE 
RETURN TO PROG 






* 
***** 

* 




ERROR TYPE OUT **************** 




0AE8 0000 
0AE9 D874 
OAEA 1 6D0O 0B5C 


* 
ERRA 

* 


DC 

STD 

STX 


LI 


/OOOO 

MSGE 

INSTE 


RETURN ADDR 

CHANGE MESSAGE £ NUC 

STORE MODIFIER NUM 




OAEC 4480 0130 
OAEE 1 0B5C 
OAEF 1 0AF4 . 
OAFO 1 0AF1 


REPT 
* 


BSI 
DC 
DC 
OC 


I 


ERROR 
INSTE 
REPT1 
REPT2 


MONITOR ERROR CALL 
ERROR MESSAGE 
ADDR OF BUSY 
ADDR OF LOOP 




0AF1 1 6580 0AE8 
0AF3 7002 


REPT2 


LDX 
MDX 


11 


ERRA 
0UT3 






0AF4 1 6500 OAEC 
0AF6 1 6D00 080A 
OAFS 4C80 012D 


REPT1 
0UT3 

* 


LDX 
STX 
BSC 


LI 
LI 

I 


REPT 

MLSCFtU 

START 


GET BUSY MLSCF 

SET MLSCF 

RETURN TO MONITOR 






* 
***** 

* 






FEED CHECK READ STATION ******* 




OAFA 0000 
OAFB C85A 
OAFC 1 4400 0A28 
OAFE 1 4C80 OAFA 


* 
FOCK 

* 
* 
***** 

* 


DC 
LDD 
BSI 
BSC 


L 
I 


/OOOO 
MFOCK 
TYPE 
FOCK 

LAST CARD 


RETURN ADDR 
MSG- FEED CHECK 
USE TYPE ROUTINE 
RETURN TO PROG 

DEVISE ************** 




OBOO 0000 
OBOl C83A 
0B02 1 4400 0A28 
0B04 1010 
0B05 D05A 
0B06 1 7401 0A8E 
0B08 1 4400 0A3E 
OBOA 70BA 


* 
LCD 

* 
***** 

* 


DC 

LDD 

BSI 

SLA 

STO 

MDX 

BSI 

MDX 


L 

L 
L 


/OOOO 

MDEAD 

TYPE 

16 

WAS 

RTL.l 

RPREL 

ZIP 

NOT READY 


RETURN ADDR 
MSG- LAST CARD 
USE TYPE ROUTINE 

RELEASE ROUTINE 
RETURN TO PROG 

********************* 




OBOB 0000 
OBOC C835 
OBOD 1 4400 4A24 
OBOF 1 4C80 OBOB 


* 
NRDY 

* 


DC 
LDD 
BSI 
BSC 


L 

I 


/OOOO 
MA1DE 
TYPE 
NRDY 


RETURN ADOR 
MSG- NOT READY 
USE TYPE ROUTINE - 
RETURN TO PROG 






* 
***** 

* 






STORAGE PROTECT VIOLATE ******* 




0B11 0000 


• 
STGPT 


DC 




/OOOO 


RETURN ADDR 


WTE 

EC NO. 


26FEB66 01MAY66 
415120 415120A 


01JUL66 
415178 


15MAY67 01SEP67 010CT67 
411731 411857 411875 



SE 



sx 



sc 
sx 



SE 



SC 



SX 



SE 

SC 
SX 



SE 



SC 



SC 
SX 



SE 

SC 

SX 



SE 
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80F06560 

80F06570 

80F06580 

80F06590 

80F06600 

80F06610 

80F06620 

80F06630 

80F06640 

80F06650 

80F06660 

80F06670 

80F06680 

80F06690 

80F06700 

80F06710 

80F06720 

80F06730 

80F06740 

80F06750 

80F06760 

80F06770 

80F06780 

80F06790 

80F06800 

80F06810 

80F06820 

80F06830 

80F06840 

80F06650 

80F06860 

80F06870 

80F06880 

80F06890 

80F06900 

80F06910 

80F06920 

80F06930 

80F06940 

80F06950 

80F06960 

80F06970 

80F06980 

80F06990 

80F07000 

80F07010 

80F07020 

80F07030 

80F07040 

80F07050 

80F07060 

80F07070 

80F07080 

80F07090 

80F07100 

80F07110 

80F07120 

80F07130 

80F07140 

80F07150 

80F0716& 

80F07170 

80F07180 

80F07190 

80F07200 

80F07210 

80F07220 

80F07230 
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080F-0 
6 



0B12 1 2C40 0BB6 
0B14 1 7406 0A8E 
0B16 1 4C80 0B11 



0B18 OOOO 
0B19 C836 
0B1A 1 4400 0A28 
0B1C 1 4C80 0B18 



0B1E 
0B1E 
0B1F 
0B20 
0B21 
0B22 
0B23 
0B24 
0B25 
0B26 
0B27 
0B28 
0B29 
0B2A 
0B2B 
0B2C 
0B2D 

0B2E 
0B2F 
0B30 
0B31 
0B32 
0B33 
0B34 
0B35 
0B36 
0B37 
0B38 
0B39 
0B3A 
0B3B 



OOOO 

0001 

1 0854 

0002 
088E 
0002 
0892 
0003 
08B9 
0004 
0907 
0005 
0939 
0006 

1 0956 

0007 

1 09AB 



OOOO 

0402 

1 0B66 

0500 

1 0BB6 
0500 

0BB6 
0600 
0BB6 
0601 
OOOO 
0701 
OOOO 
0480 



0B3C A001 
0B3D DEAD 



0B3E 
0B3F 
0B40 
0B41 
0B42 
0B43 
0B44 
0B45 
0B46 
0B47 



C001 
AOAO 
C002 
FEED 
C003 
AIDE 
C004 
ABCD 
COOS 
FED2 



0B48 E001 
0B49 ICED 
0B4A E002 



STS 

MDX 
BSC 

* 

* 

***** 

* 

* 

PAROR DC 
LDD 
BSI 



L RAREAt/40 REMOVE STG PROTECT 
L RTLt6 CHANGE RETURN ADDR 
I STGPT RETURN TO PROG 



SX 



BSC I 



PARITY ERROR ****************** 



/OOOO RETURN ADDR SE 

MPAR MSG PARITY ERROR 

TYPE USE TYPE ROUTINE SC 

PAROR RETURN TO PROG SX 



**************************************$$„,$$*$ 

* 

***** MESSAGE AREA ****************** 



BSS 
RI01 DC 

DC 
RID2 DC 

DC 
RIOX DC 

DC 
RID3 DC 

DC 
RID4 OC 

DC 
RID5 DC 

OC 
RID6 OC 

DC 
RID7 DC 

DC 
* 

FDACD OC 

DC 
PUNCH OC 

DC 
PUNCX OC 

DC 
READ DC 

DC 
READX DC 

DC 
SENSE DC 

DC 
STACK DC 

DC 
* 

MDEAD DC 
DC 

* 

MSTAR DC 

DC 
MFEED DC 

DC 
MA1DE DC 

DC 
MABCD DC 

DC 
MFED2 DC 

DC 
* 

M1CED OC 

DC 

MADOO DC 





1 

RT1 

2 

RT2 

2 

RT2A 

3 

RT3 

4 

RT4 

5 

RT5 

6 

RT6 

7 

RT7 

/OOOO 
/0402 
WAREA 
/0500 
RAREA 
/0500 
RAREA 
/0600 
RAREA 
/0601 
/OOOO 
/0701 
/OOOO 
/0480 

/A001 
/DEAD 

/C001 
/AOAO 
/C002 
/FEED 
/C003 
/AIDE 
/C004 
/ABCD 
/C005 
/FE02 

/E001 
/ICED 
/E002 



ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 



NUMBER 

ADDRESS 

NUMBER 

ADDRESS 

NUMBER 

ADDRESS 

NUMBER 

ADDRESS 

NUMBER 

ADDRESS 

NUMBER 

ADDRESS 

NUMBER 

ADDRESS 

NUMBER 

ADDRESS 



FEED A CARD 

PUNCH 

PUNCH 

READ 

READ 

SENSE DSW 

SELECT STACKER 

MSG CODE AND NUMBER 
LAST CARD 

MESSAGE NUMBER 
SET BIT 8 FUNC 00 

LOAD BLANKS MAKE RDY 

NOT READY 

LD ANY PAT PLUS BLKS 

LOAD FROM STACKER 2 

NO INTERRUPT 



< < I 
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DATE 
EC NO. 



28FEB66 
415120 



01MAY66 
415I20A 



01JUL66 
415178 



15MAY67 
411731 



01SEP67 
411857 



010CT67 
411475 



80F07240 

80F07250 

80F07260 

80F07270 

80F07280 

80F07290 

80F07300 

80F07310 

80F07320 

80F07330 

80F07340 

80F07350 

80F07360 

80F0737O 

80F07380 

80F07390 

80F07400 

80F07410 

80F07420 

80F07430 

80F07440 

80F07450 

80F07460 

80F07470 

80F07480 

80F07490 

80F07500 

80F07510 

80F07520 

80F07530 

80F07540 

80F07550 

80F07560 

80F07570 

80F07580 

80F07590 

80F07600 

80F07610 

80F07620 ' 

80F07630 

80F07640 

80F07650 

80F07660 

80F07670 

80F07680 

80F07690 

80F07700 

80F07710 

80F07720 

80F07730 

80F07740 

80F07750 

80F07760 

80F07770 

80F07780 

80F07790 

80F07800 

80F07810 

80F07820 

80F07830 

80F07840 

80F07850 

80F07860 

80F07870 

80F07880 

80F07890 

80F07900 

80F07910 
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0B4B 
0B4C 
0B4D 
0B4E 
0B4F 
0B50 
0B51 
OB52 
0B53 
0B54 
0B55 
0B56 
OB57 



AOOO 

E003 
B1EE 
E004 
COEE 
E005 
A1EE 
E006 
CODE 
E007 
BADO 
E008 
FDCC 



OB58 0001 
0B59 0000 
0B5A 0000 
0B5B 0000 



0B5C 
OB 50 
0B5E 
0B5F 
0B60 
0861 
0862 



0000 
0000 
0000 
0000 
0000 
0000 
0000 



0863 





4010 


0B64 





4018 


0865 





8018 


0B66 





8010 


0B67 





4020 


0B68 





2040 


0B69 





1080 


0B6A 





0900 


0B6B 





0600 


0B6C 





0600 


0B60 





0900 


0B6E 





1080 


0B6F 





2040 


0B70 





4020 


0B71 





8010 


0B72 





FFF7 


0B73 





8880 


0B74 





CCCO 


OB75 





EEEO 


0876 





FFFO 


0877 





7777 


0878 





3333 


0B79 





1111 


0B7A 





FFF7 


087B 





AOOO 


0B7C 





9000 


0B7D 





8800 


0B7E 





8400 


DATE 28FEB66 


EC NO. 415120 



DC 
MB1EE DC 

DC 
MCDEE DC 

DC 
MPAR DC 

DC 
MSPV DC 

DC 
MRONG DC 

DC 
MFDCK DC 

DC 
* 

***** 

* 

* 

INSTL DC 
DC 

MSGL DC 
DC 

* 

* 

***** 

* 

* 

INSTE DC 
DC 

MSGE DC 
DC 

WAS DC 

02BE DC 

COL DC 

* 

* 

***** 

* 

* 

WA40 DC 

WA40A DC 

WA79 DC 

* 

WAREA DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 



/ADOO 
/E003 
/B1EE 
/E004 
/CDEE 
/E005 
/A1EE 
/E006 
/CODE 
/E007 
/BADO 
/E008 
/FDCC 



BUSY 

DSW BITS IN ERROR 

CARD ERROR 

PARITY ERROR 

STG PROTECT ERROR 

RELEASE DEVICE TWICE 

FEED CK AT READ STAT 



PID MID RID RAD 0000 



/0001 WORD COUNT 

/OOOO HEX CONTROL 

/OOOO MESSAGE ID 

/OOOO CODED MESSAGE 



PID MID RID RAD OOOO OOOO OOOO 



/OOOO WORD COUNT 

/OOOO . HEX CONTROL 

/OOOO MESSAGE ID 

/OOOO CODED MESSAGE 

/OOOO ERROR BITS 

/OOOO CORRECT BITS 

/OOOO COL NUMBER IN HEX 



WRITE AREA FOR PUNCH 



/4010 
/4018 
/8018 



415120A 



01JUL66 
415178 



/8010 
/4020 
/2040 
/1080 
/0900 
/0600 
/0600 
/0900 
/1080 
/2040 
/4020 
/BO 10 
/FFF7 
/8880 
/CCCO 
/EEEO 
/FFFO 
/7777 
/3333 
/llll 
/FFF7 
/AOOO 
/9000 
/8800 
/8400 



15MAY67 
411731 



COLUMN 1 



COL 21 
ALPHA RIPPLE 
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80F07920 


0B7F 





8200 




DC 


/8200 


COL 26 


80F07930 


0B80 





8100 




DC 


/8100 




80F07940 


0B81 





8080 




DC 


/8080 




80F07950 


0882 





8040 




DC 


/8040 




80F07960 


0B83 





8020 




DC 


/8020 




80F07970 


0B84 





8010 




DC 


/8010 




80F07980 


0B85 





5000 




DC 


/5000 




80F07990 


0B86 





4800 




DC 


/4800 




80F08OO0 


0B87 





4400 




DC 


/4400 




80F08010 


0B88 





4200 




DC 


/4200 




80F08020 


0B89 





4100 




DC 


/4100 




80F08030 


0B8A 





4080 




DC 


/4080 




80F08040 


0B8B 





4040 




DC 


/4040 




80F08050 


0B8C 





4020 




DC 


/4020 




80F08060 


0B8D 





4010 




DC 


/4010 


COL 40 WAREA&39 


80F08070 


0B8E 





3000 




DC 


/3000 




80F08080 


0B8F 





2800 




DC 


/2 800 




80F08090 


0B90 





2400 




DC 


/2400 




80F08100 


0B91 





2200 




DC 


/2200 




80F08110 


0B92 





2100 




DC 


/2100 




80F08120 


0B93 





2080 




DC 


/2080 




80F08130 


0B94 





2040 




DC 


/2040 




80F08140 


0B95 





2020 




DC 


/2020 




80F08150 


0B96 





2010 




DC 


/2010 




80F08160 


0897 





OOOO 




DC 


/OOOO 




80F08170 


0B98 





FCOO 




DC 


/FCOO 




80F08180 


0B99 





03F0 




DC 


/03F0 




80F08190 


0B9A 





FCOO 




DC 


/FCOO 




80F08200 


0B9B 





03FO 




DC 


/03F0 




80F0821O 


0B9C 





OOOO 




DC 


/OOOO 




80F08220 


0B9D 





8887 




DC 


/8887 




80F08230 


0B9E 





4444 




DC 


/4444 




80F08240 


0B9F 





2222 




DC 


/2222 




80F08250 


OBAO 





1111 




DC 


/llll 




80F08260 


0BA1 





0007 


K0007 


DC 


/0007 


CONSTANT 


80F08270 


0BA2 





8880 




DC 


/8880 




80F0828O 


0BA3 





CCC4 




DC 


/CCC4 




80F08290 


0BA4 





AAA2 




DC 


/AAA2 




80F08300 


0BA5 





9991 




DC 


/9991 




80F08310 


0BA6 





4444 




DC 


/4444 




80F08320 


0BA7 





6666 




DC 


/6666 




80F08330 


0BA8 





5555 




DC 


, /5555 




80F08340 


0BA9 





2222 




DC 


/2222 




80F08350 


OBAA 





3333 




DC 


/3333 




80F08360 


OBAB 





1111 




DC 


/llll 




80F08370 


OBAC 





0005 




DC 


/0005 


CHECK PCH TERM 


80F08380 


OBAD 





0006 




DC 


/0006 




80F08390 


OBAE 





FFF7 




DC 


/FFF7 




80F084O0 


OBAF 





FFF7 




DC 


/FFF7 




80F08410 


OBBO 





FFF7 




DC 


/FFF7 




80F08420 


0BB1 





0008 




DC 


/0008 


COLUMN 76 


80F0B43O 


0BB2 





FFFO 




DC 


/FFFO 




80F08440 


0BB3 





FFFO 




DC 


/FFFO 




80F08450 


0BB4 





FFFO 




DC 


/FFFO 




80F08460 


0BB5 





FFFO 




DC 


/FFFO 




80F08470 








* 








80F08480 








* 








80F08490 


08B6 




0050 


RAREA 


BSS 


80 


READ AREA 


80F08500 








* 








80F08510 


0C06 




0064 




BSS 


100 




80F08520 








* 








80F08530 








* 








80F08540 








* 




THIS AREA CAW BE USED FOR PATCH 


80F08550 








* 








80F08560 


0C6A 





OOOO 


PEND 


DC 


/OOOO 




80F08570 








* 








80F08580 


0C6C 




0826 




END 


GO 




80F08590 


NO ERRORS IN ABOVE 
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80F08600 
80F08610 
80F08620 
80F08630 
80F08640 
80F08650 
80F08660 
80F08670 
80F08680 
80F08690 
80F08700 
80F08710 
80F08720 
80F0873X) 
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80F08750 
80F08760 
80F08770 
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80F08800 
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80F08840 
80F08850 
80F08860 
80F08870 
80F08880 
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60F09030 
80F09040 
80F09050 
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80F09080 
80F09090 
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80F09110 
80F09120 
80F09130 
80F09140 
80F09150 
80F09160 
80F09170 
80F09180 
80F09190 
80F09200 
80F09210 
80F09220 
80F09230 
80F09240 
80F09250 
80F09260 
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DATE 


28FEB66 


01MAY66 


01JUL66 


15MAY67 


01SEP67 


010CT67 


EC NO. 


■» 415120 


'415120A 


415178 


411731 


411857 


411875 



PROG ID 

p'age 



080F-0 
8 



DATE 
EC NO. 



C R 

NAME 

BEGIN 

BIT12 

BSY 

BUILD 

BUSY 

CALL 

CCOO 

CHEC 

CHECK 

CHIP 

CNTL 

COL 

COLA 

COLB 

COMP 

CONST 

CRCK 

DLYCT 

D00R1 

D00R2 

DSWBT 

DSW4A 

DUP 

EDIT 

EDIT1 

EDIT2 

END 

EPA 

ERRA 

ERRFD 

ERROR 

ERR1 

FDACD 

FDCK 

FDLCD 

FLIP 

GO 

GONOW 

ILP 

INERR 

INSTE 

INSTL 

IRECD 

KEEP1 

KEEP2 

KEEP3 

KNOW 

K0007 

LABEL 

LCD 

LGA 

LGB 

LOG 

LPA 

MABCO 

MADOO 

MA IDE 

MB1EE 

MCDEE 

MDEAD 

MFDCK 

MFED2 

MFEED 

MLSCF 

MPAR 

MRONG 



SS REFERENCE 
VALUE REFERENCES 
012C 0826 

09B7 

0834 

083F 

0AC8.0ADB 

0848 

09ED 

08C3 

0911, 092A 

0970 

081C 

09E7,09EB,09EE 

095C099F 

0960, 09A2 

097A 

0A91,0A99 



09D6 

0848 

0839 

0AD7 

0832 

09D7 

08CE 

091D 

097C 

09D8 

0862 

09E5 

09E9 

096D 

09D9 

0133 

0A7F 

08E8 

08F2 

0AC7 

0818 

0941 

0815 

0813 

0814 

012E 

0808 

0AE8 

09EO 

0130 



0A75,0A7A 

08D3 

08DA 

OABO 

0824 

0949 

0831 ,0835,OA40,OA46,OA50,OA57 

082E 

0830 

09CF 



09F7,0AE5,0AF1 

08E3,08ED,08F8, 0902, 0927, 0934, 0977, 0984, 09FD,0A04,0A06,0A08 
oiao OAEC 

OADD 0AC9,0ACA,0ACB,0ACC,0ACD,0ACE,0AD2,0AD4,0AD5,0AD6,0AE1,0AE6 
0B2E 0839, 083C, 0898, 08AA,09BC,0A0D 

AACA r\ . r- c Aire 



OAFA OACF,OAFE 

OAOA 08AF,08C4, 0912, 094C, 0969, 09CB,0A11 

098A 0976,0993 

0C6C 

096B 



0826 

0990 

0806 

0AA7 

0B5C 

0B58 

0A9F 

09E6 

09EA 

081B 

0A13 

0BA1 

0A54 

OBOO 

09DA 

09DB 

012F 

0807 

0B44 

0B4A 

0B42 

0B4C 

0B4E 

0B3C 

0B56 

0B46 

0640 

0809 

0B50 

0B54 



0AB8 

0AEA,0AEE 
0A32 
0820 



0867, 08B1,08C6, 0914, 094E,09A3,09CC,OA16 
0A18 



0A18 
0A80 
0AD3 
099 D 
09A0 
0A30 

09AB 

0AD8 

OBOC 

0AE3 

09F4 

0B01 

OAFB 

08B9,0907,0956 

088E,093D 



UOOC|U«U 

0822, 084A, 0863, OA3A,0A4A,0A6B,0A82,OA8A,0A95,OACl,OAF6 
0B19 



28FEB66 
415120 



01MAY66 
41% 120 A 
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010CT67 
411875 
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OATE 
EC NO. 



MSGE 

MSGL 

MSPV 

MSTAR 

M1CED 

NBTHO 

NEXT 

NRDY 

0UT1 

0UT3 

02BE 

PAROR 

PEND 

PIO 

PUNCH 

PUNCX 

RAD 

RAREA 

RDY 

READ 

READX 

RECK 

REGO 

REGOT 

RELDV 

REPT 

REPT1 

REPT2 

REQDV 

RETN1 

RETN2 

RETN3 

RETN4 

RID 

RIDX 

RID1 

RID2 

RID3 

RID4 

RID5 

RID6 

RID7 

RPDVA 

RPREL 

RPREQ 

RTEND 
RTL 

RTLA 

RTM 

RTU 

RTO 

RT1 

RT1A 

RT1B 

RT1C 

RT2 

RT2A 

RT2B 

RT2C 

RT3 

RT3A 

RT4 

RT4A 

RT5 

RT6 



0B5E 
0B5A 
0B52 
0B3E 
0B48 
0830 
096C 
OBOB 
0A3A 
0AF6 
0B61 
0B18 
0C6A 
07FF 
0B30 
0B32 
0801 
0BB6 

0A6F 
0B34 
0B36 
09C0 
OABA 
OABB 
0132 
OAEC 
0AF4 
0AF1 
0131 
0A77 
0A7A 
0A7D 
0A82 
0800 
0B22 
0B1E 
0B20 
0824 
0B26 
0B28 
0B2A 
0B2C 
0817 
0A3E 
0A4E 

09D1 
0A8E 

0A93 
0A99 
0A86 
0829 
0854 
085C 
0867 
087A 
088E 
0892 
089E 
08A8 
08 B9 
08BD 
0907 
090B 
0939 
0956 



0AE9 

0A29 

0876 

0858 

0A9C 

082C 

0968 

O87E,0A62,OAC7,0BOF 

0A37 

0AF3 

08DE,08E9,08F4,08FE,0923, 0930, 0973, 0980, 09E1»0AA4 

0AD1,0B1C 

080D 

0828 

08A2.0945 

0998, 09C4 

086C, 0874, 08E0,08EB,08F6, 0900, 0925, 0932, 0975, 0982, 098A,098C,098F 

0994,09B5,09B8,09C0,0B12,0B32,0B34,0B36 

0A67 

090D,0964,09B1 

0870, 08BF 

09C8 

0AA1 

OABF 

0A44 

0AF4 

OAEF 

OAFO 

0832, 0A54 

0A7C 

0A77 

0A71 

0A79 

0AlA,0AlCt0A87 

0882 

0842, 084E 

0888 

08B3 

0BC8 

0916 

0950 

09A5 

0836,083B,0A58,0A5C 

0840, 0880, 09D2,0A0F,0A42,0A48, OABA, 0B08 

086E, 087 A, 0896, 08AO,08A8,08BD,090B, 0943, 0962, 0996, 09AF,09BA,09C2 

0A0B,0A52,0A7D 

0808, 09D4 

0872, 089A,08A4,08AC,08C1,090F, 0947, 0966, 099A,09B3,09BE,09C6,OAC5 
0806, 0B14 

0A9B 

0A93 

0844,0850,0884,088A,08B5,08CA,0918,0952,09A7,OA8C 

0806,0807,0846 

0B1F 

0861 

0856, 085F 

086B 

0B21 

08AE,0B23 

089C 

08A6 

0B25 

08E7,08F1,08FC,0906 

0B27 

0928,0938 

0B29 

0B2B 
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RT6A 

RT7 

SAVE 

SEE 

SENSE 

SETUP 

SET1 

SET2 

SET3 

SET4 

SET5 

SET6 

SET7 

SHA 

SHB 

SKIP 

SPEC 

STACK 

START 

STDBY 

STGPT 

SWO 

SW1 

SW2 

SW3 

TERM 

TERMR 

TYPE 

TYPEA 

TYPEB 

WAREA 

WAS 

WA40 

WA40A 

WA79 

XX 

XXX 

XXXX 

XXXXX 

ZIP 



0962 
09AB 
09DC 
0A64 
0B38 
0A20 
084E 
0888 
08B3 
08C8 
0916 
0950 
09A5 
09DE 
09DF 
08AF 
0800 
0B3A 
012D 

0A80 
0B11 
0802 
0803 
0804 
0805 
080C 
092C 
0A28 

0A30 
0A38 
0B66 
0B60 
0B63 
0B64 
0B65 
0831 
092F 
097F 
08FD 
0AC5 



099C 

0B2D 

0AA8,0AAA,0AB6 

0A69 



UAAB,0AAA,0AB6 
0A69 

0819, 087C,09FO,09F9,OA5A,OA5E,OA60,OA64,OAAC,OAB2, OABB 

0A1E 

0A21 



0A22 

0A23 

0A24 

0A25 

0A26 

OA27 

095A 

095E 

0890, 08A7 

08E6 



0A6D 



089D,08A7 

08E6 

089E,0941,094A,09CO,09C9,09F2,09FB,09FF,OAAE,OAB4 

084C, 0852, 0865, 0886, 088C,08B7,08CC,091A, 0954, 09A9,0A3C, 0A4C, 

0A84,0A97,0AC3,0AF8 

0A56 

0AD0,0B16 

0854,085C,0A01,0A2B,0A6F 

0A14 

082A 

0837, 0869, 0A47, 0A59 

0920 

085A, 0878, 0890, 08BB, 0909, 093F, 0958, 09AD,0A2E, 0A35.0A9E, 0AD9,0AFC 

0B02,0B0D,0B1A 

0A38 

0A33 

0894, 0800,0807, 09 ID, 093B ,096D ,OB30 

081E,09E3,0A9F,0ADE,0BO5 

0892 

0939 

082F 

092E,0937 

097E,0987 / 

08F0,08FB,0905 

0ABD,0B0A / 
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1.1 INTENT - THIS PROGRAM IS DESIGNED TO < 1 ) DETECT MALFUNCTIONS IN THE IBM 
SELECTOR CHANNEL. AND (2) AID IN THE ISOLATION OF FAILURES 
BY PROVIDING DIAGNOSTIC INFORMATION AND SCOPE LOOP FACILITIES. 



1.2 BRIEF DESCRIPTION OF TEST ROUTINES 



SECTION 
1 



ROUTINE 
1 



STATUS CHECK 



PROGRAM CHECK 



CCW ADDRESS 
REGISTER 



TEST I/O 



NO-OP 



BYTE COUNTER 
REGISTER 



TIC 



SENSE 



DATA CHECK 



TEST THE CHANNEL STATUS FOR 
READY AND AVAILABLE. 



TEST THE PROGRAM CHECK 
CIRCUITS BY ISSUING IN- 
VALID IOCC FUNCTIONS. 

TEST THE ADDRESS REGISTER FOR 
ANY BITS ON/OFF. 

SEE THAT A TEST I/O WILL 
FUNCTION PROPERLY AND THAT 
CORRECT STATUS IS RETURNED. 

TEST THE NO-OP FOR CORRECT 
CHANNEL STATUS RETURNED. 

TESTS THE ABILITY OF THE 
REGISTER TO DECREMENT AND 
PROPAGATE CARRY BITS. 

TESTS THE TRANSFER (BRANCHING) 
CAPABILITITY OF THE CHANNEL. 

TEST SENSE I/O COMMAND ABILITY 
TO TRANSFER DATA 

TEST THE DATA CHECK CIRCUITS 
BY SENSING INTO A STORAGE PRO- 
TECTED AREA. 



SECTION 
2 



ROUTINE 
1 



DATA CHAIN 



COMMAND CHAIN 



INCORRECT 

LENGTH 

(SILI BIT OFF) 



TESTS THE ABILITY OF THE CHNL 
TO CHAIN DATA FUNCTIONS OF CCWS. 

TEST THE ABILITY OF THE CHNL 
TO CHAIN CCW'S. 

TESTS INCORRECT LNGTH IND. 

(BIT 6) IN CHANNEL STATUS WORD. 



INCORRECT 

LENGTH 

(SILI BIT ON) 



TESTS SILI FLAG FOR SUPPRESSION 
OF INCORRECT LENGTH INDICATOR. 



SKIP 



PCI 



TESTS THE ABILITY OF THE 
CHANNEL TO SKIP DATA TRANSFER. 

TESTS THE ABILITY OF THE 
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SECTION 

3 



ROUTINE 
1 



NOT OPERATION- 
AL 



COMMAND REJECT 



HALT I/O 



CHANNEL TO GENERATE A PROGRAM 
CONTROLLED INTERRUPT. 

TEST FOR CORRECT STATUS FROM 
KNOWN NOT OPERATIONAL DEVICE. 

TEST COMMAND REJECT CIRCUITS BY 
ISSUING INVALID OP CODE { FF ) . 

TEST HALT I/O FOR TERMINATION OF 
CHANNEL OPERATION AND DEVICE 
D ISCONNECT. 



2. PREREQUISITES 



2.1 PROGRAM REQUIREMENTS. 

-1800 DIAGNOSTIC MONITOR PROGRAM -AT LEAST 8K OF CORE 

-SECTIONS SHOULD BE RUN IN SEQUENTIAL ORDER FOR CORRECT INDICATION 

2.2 EQUIPMENT REQUIREMENTS. 

-CPU WITH THE STANOARD INSTRUCTION SET, COMPLETELY OPERATIVE. 
-HARD COPY OUTPUT DEVICE 
-METHOD OF LOADING PROGRAM 
-SELECTOR CHANNEL FEATURE 
-SELECTOR CHANNEL CONTROL UNIT 



3. USE PROCEDURE. 



3.1 PROGRAM LOADING. 

STANDARD LOADING PROCEDURE AS DESCRIBED IN THE DIAGNOSTIC MONITOR USE 
PROCEDURE. 



OPTION SELECTION 



THE PROGRAM OPTION SWITCHES SHOWN BELOW ARE IN THE MONITOR INTERFACE 

** NOTE- TO TEST CHANNEL USING THE 360 CA OR 2501 CONTROL UNITS 'TURN ON' 
BIT 9 (SW FUNCTION O). CHANNEL MAY 'HANG UP' IF COMMAND REJECT 
TEST IS ATTEMPTED ON THESE DEVICES. 
**NOTE- TO TEST CHANNEL USING A CONTROL UNIT OTHER THAN THE 2841 

•TURN ON' BIT 11. (SW FNC 0). OR THE DATA CHAIN TEST WILL FAIL. 

TABLE IN THE PROGRAM. BITS ARE ZERO WHEN OFF AND ONE WHEN ON. 

TABLE SC DFT FUNCTION 

CONTROL FUNCTION 

********************* 1. SET FUNCTION 00 IN S/P SWITCHES AND 1. 

* SENSE/PROGRAM * 2. SET P ID IN S/P SWITCHES 2 THROUGH 7. 

* 01234567 * 3. SET DESIRED CONTROL OPTIONS IN D/E SWITCHES 8-15 

* * AS SHOWN. 

* 00010000 * 4. PRESS CONSOLE INTERRUPT 

* DATA ENTRY SWITCHES * DESCRIPTION * 

* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * * 

* 0..... EXIT ERROR HALT LOOP * 

* 1........ HALT ON ERROR * 

* 1... ........ BYPASS ALL PRINTOUTS * 

* 1.............. LOOP ON ERROR * 

* 1................. BYPASS DATA CHAIN TEST * 

* 1... PRNT RESULTS AND RTN TITLES * 

* 1 BYPASS CMD REJ TEST * 

* 1. LOOP START I/O * 

* (TIGHT SCOP LOOP) * 

* * 
************************************* ******** ******** ********** ************ 



\ 



** NOTE DO NOT INCLUDE DEVICE ADDRESS ON MONITOR EDI T.ENTER COMPLETE 
DEVICE ADDRESS IN BITS 8-15 OF SW FNC 2 WHEN PROGRAM 
COMES TO 'SELECT DEVICE' HALT < SEE 3.3) 

3.2 PROGRAM OPERATION. 

1. INSTRUCTIONS - THIS TEST SHOULD NOT BE RUN WITH BOTH 2841 CHANNELS 
CONNECTED TO THE SAME SELECTOR CHANNEL. (AS IN THE 2 CHANNEL SWITCH 
TEST) WHEN RUNNING THE TEST ON ONE CHANNEL IT IS ADVISABLE TO 
SWITCH 'OFF' THE ALTERNATE CHANNEL. 



3. ROUTINE SELECTION SWITCHES - SW FNC 1. USED TO SELECT ROUTINES FOR 
EXECUTION. THE FORMAT OF THE SWITCHES IS OOSR WHERE S IS THE SEL- 
ECTED SECTION AhD R IS THE SELECTED ROUTINE WITHIN THAT SECTION. IF 
R=0 ALL ROUTINES IN THE SELECTED SECTION WILL BE RUN. IF S=0 ALL 
SECTIONS (1-3) WILL BE RUN. 

TABLE 1 SC DFT FUNCTION 1 

ROUTINE SELECTION 



(. 








V 








(, 








' 


DATE 


14N0V69 


15SEP71 




EC NO. 


431319 


431328 



1. LOAD MONITOR Alt) DESIRED DFT'S 

2. EXECUTE PID 0810 (WILL WAIT FOR OPTION SELECTION) 

3. SELECT OPTIONS (SEE TABLES O & 1 BELOW) 

4. SELECT DEVICE (SEE TABLE 2 BELOW) 

PROGRAM OPTION SWITCHES-SW FNC 0. (NORMAL RUN , W I TH ALL 
SWITCHES OFF, GIVES ERROR PRINTOUTS. CONTINUE ON ERROR ) 

** NOTE 'TURN ON" OPTION SWS IMPLIES SETTING THE 
SPECIFIED BITS ON IN THE INDICATEO SWITCH FUNCTION BY 
SETTING UP THE S/P AND DE SWS Al*> DOING A 'CONSOLE IN- 
TERRUPT'. 



******************** 1. 

* SENSE/PROGRAM * 2. 

* 01234567* 3. 

* * 

* 01010000* 4. 
*************************************************************************** 



SET FUNCTION 01 IN S/P SWITCHES AND 1. 
SET PID IN S/P SWITCHES 2 THROUGH 7. 
SET DESIRED SECTION/ROUTINE CONFIGURATION IN 
D/E SWITCHES 8-11/12-15 RESPECTIVELY. 
PRESS CONSOLE INTERRUPT. 



DATA ENTRY SWITCHES 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 



* DESCRIPTION 

* 



S S 



ALL SECTIONS, 



* 
* 
* 
* 
* 
* 
* 
*************************************************************************** 

4. DEVICE SELECTION. SWITCH FUNCTION 2 IS USED TO SELECT THE DEVICE 
UNDER TEST. THE UNIT ADDRESS IS PLACED IN THE 8 LOW ORDER BITS 
OF THE DE SWS (BITS 8-15). 



ROUTINE NUMBER IN HEX (0=RUN * 
ALL ROUTINES) * 

SECTION NUMBER IN HEX (0=RUN * 

* 
* 
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TABLE 2 SC DFT FUNCTION 2 
DEVICE SELECTION 



3.4 PROGRAM TERMINATION. 




******************* 

* SENSE/PROGRAM * 
♦01234567* 

* 10010000* 

* * 

* * 



SET FUNCTION 10 IN S/P SWITCHES AND 1. 
SET PID IN S/P SWITCHES 2 THROUGH 7. 
SET 2841/2311 ADDRESS INTO D /E SWITCHES 
8-15 AS SHOWN 
PRESS CONSOLE INTERRUPT 

!» , o , ° ATA ENTRV SWITCHES * DESCRIPTION * 

»0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * * 

* U U U U. . UNIT (2311) TO BE USED * 

*****************^^*^^;,;,;,;,;,;,;--^^«->jo # be^used^^ : 

3.3 PROGRAM HALTS. 



1000 *****SELECT OPTIONS***** 

THIS HALT OCCURS PRIOR TO PROGRAM EXECUTION TO ALLOW SETTING 

BE Intf»£ , «^ SWITCHES - ,F OPTIONS *«* °ESIRED THEY SHOULD^ 
BE ENTERED BEFORE SETTING OPTION SWITCH 2 (DEVICE) AS PROGRAM 
EXECUTION COMMENCES AT THIS TIME. PROGRAM 



LEND OF NORMAL TEST. 

PROGRAM W,7r tf»m A m E t 1S PRINTED AT «»«-«eiON OF NORMAL TEST. 
PROGRAMS""" TERMINATE ° NLESS «™,TOR FNC 0. SW 11 IS ON (LOOP 



1000 ***HALT— SC DIAGNOSTIC AT ADDRS XXXX 



SFLFCT^M ^ , * D UNLESS BYPASSEO - »S A LOOP THAT ALLOWS OPTION 

llsioll ° H r'S P EXIT USING ™ E SAME SWITCH FACTION (FNC 0). 

eltZ f NORMAL HALT AFTER ERROR DESCRIBED ABOVE. THERE ARE SEVERAL 

ERROR CONDITIONS IN WHICH THE PROGRAM CANNOT CONTINUE. (EXAMPLE. ACCESs" 

?£c tt ' HANG ° P BUSV ' ETC «> THE ERROR MESSAGE WILL IDENTIFY fuCH CONDIT- 

^T S ; NE : HE ADDRESS **««» IN LINE 1 IS THAT OF THE CALL ON THE WAIT 

NECESSARY INSTRUCTIONS TO EXIT THE ERROR HALT LOOP ACCOMPANY FNTPV rn 

0PTi0NS P cA V rBE enterTa, WH1LE ,n T * LO0P VAR '°" sw?tch A f N unct!on o T ° 

tl i^lfrli ENTERED ALONG WITH BIT 15=0 WHICH PROVIDES THE EXIT. BIT 

wiZl termite 1 : RESULT IN * N0RMAL EXIT * IN M0ST cases the r ° u tine 



1. 
2. 



ttlll^ BIT 12 WILL EXIT T0 THE START l'° THAT CAUSED THE ERROR. 
till"* THE X,o! TH " "^ EXIT T ° ™ E FAILING START "0 E AnT R * 
(TIGHT SCOPE LOOP) 

3 * ! E . T . TI !^ G BIT 13 AND Sp ECIFYING THE FAILING ROUTINE (FNC 1) 

T 0OP THROUGH THE ROUTINE WITHOUT CHANGING ANY PARAMETERS. 
PRINTING ERRORS. OR HALTING ON THE ERROR. (LONG SCOPE LOOP) 

OTHE S R A^ICA^sT * *" "" T USEFUL * «« TABLE ° F ° PTI ° NS F ° R 

^ "SI* -HlLT PR J?pp M p'!„ B ES,fiNB) T ° BE M ° ST ^FECTIVE WHEN RUNNING 

SWITCH FUNCT A nI« R R ? 7: ,F ° SER W,SHES T ° " UN IN THIS MODE 
SWITCH FUNCTION O. BIT 14 MUST BE TURNED ON. 

** NOTE- IF THE SELECTOR CHANNEL AND THE LOG DEVICE SHARE 
A DATA CHANNEL, CAUSING A CONSOLE INTERRUPT MAY RESULT 
IN MONITOR WAIT 9 (3009). 



4.0 PRINTOUTS 



4.1 ERROR MESSAGES 



ERROR SR02 IS THE PRIMARY MESSAGE FROM THIS TEST. 

CH^EL^TATUS^^rSEE^r.rBEL^rT" F^Rsf ""»»* ™ *" "°»° °«= ™ E 
IS IDENTIFIED IN LInI 1. THE lorr T^f "?" " 0f ° " H1CH DOESN'T COMPARE 

IS PRINTED aIoNG W TH EACH CCW E T* ' LTM" ™ E FA1LING ° CW CHAIN 

TM R S R . SR ! 3 USES AN ENGLIS H MESSAGE TO EXPLAIN SOME OTHER ERROR 

ERROR NUMBER FORMAT - 

1. UNEXPECTED INTERRUPT ERROR PRINTOUT 

1000 ** ER 00 UNEXPECTED INTERRUPT 

2. NO INTERRUPT ERROR PRINTOUT 

1000 ** ER-SR01 INTERRUPT DID NOT OCCUR 

CSW YYYY UU2Z ADRS CNTR 
1000 ** ER-SR01 CHANNEL BUSY-SIO NOT ATTEMPTED 

3. NORMAL ERROR NUMBER PRINTOUT. 

1000 ** ER- SR02 FFF NOT CORRECT 

CSW YYYY UUZZ ADRS CNTR 

S/B YYYY UUZZ ADRS CNTR 

IOCC AT ADDR XXXX = CCCC DDDD 

CCW AT ADDR CCCC = ABCD ABCD ABCD 

CHAINED TO CCCC = ABCD ABCD ABCD 

4. ERROR NUMBER WITH MESSAGE. 



1000 ** ER- SR03 MESSAGE. 
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5. THE SEC 0(0 LINE OF AN ERROR MESSAGE PRINTOUT GIVES VARIABLE DATA 
ON MACHINE CONDITIONS. 



CAW KKKK CSW ADRS YYYY UUZZ CNTR 
6. EXPLANATION OF CHARACTERS- 



SENSE B-B B-B B-B B-B 



S SECTION NUMBER 

R ROUTINE NUMBER 

XX SEQUENTIAL ERROR NUMBER WITHIN EACH ROUTINE 

UU CHANNEL AM) DEVICE ADDRESS IN HEX 

FFF FIRST CSW WORD WHICH DOESN'T COMPARE ( CS . US. AD, BC) 

AAAA ADDRESS OF ERROR BRANCH 6 STORE I-REG INSTRUCTION IN LISTING 

KKKK CHANNEL ADDRESS WORD FOR THE CCW CHAIN 

ADRS CHANNEL CCW AODRESS REGISTER 

YYYY CHANNEL STATUS IN HEX 

UUZZ UNIT ADDRESS/UNIT STATUS IN HEX 

CNTR CHANNEL BYTE COUNT REGISTER 

XXXX ADDRESS OF IOCC FOR SIO 

CCCC ADDRESS OF CCW 

DDOD IOCC ADORS. FUNCTION. MODIFIERS 

ABCD REFLECTS CURRENT CCW FOR SIO 

B-B SENSE BYTES IN BINARY 



COMMENTS 

5.1 DETAILED DESCRIPTION OF PROGRAM ROUTINES 

SECTION 1. 

ROUTINE 1. STATUS CHECK 

THIS ROUTINE INTERROGATES THE CHANNEL STATUS BEFORE AND AFTER DO- 
ING A SENSE WITH RESET. ERROR PRINTOUTS RESULT FROM CC 2&3 OR CC 1 
AFTER ATTEMPTING TO RESET THE STATUS. 

ROUTINE 2. PROGRAM CHECK 

THIS ROUTINE ATTEMPTS TO EXECUTE INVALID FUNCTIONS (IOCC FUNCTION= 
0,1.2 OR 6) THEN TESTS FOR PROGRAM CHECK TO EXERCISE THE PROGRAM 
CHECK CIRCUITS OF THE SELECTOR CHANNEL 

ROUTINE 3. CCW ADDRS REGISTER 

THIS ROUTINE SHOULD BE THE FIRST SIO (UNLESS ROUTINE 2 FAILS) OF THE 

TEST. BUILDS NO-OP CCW'S AT ADDRESS FFFC AND FFFD AND THE CCW 

ADDRESS REGISTER IS CHECKED FOR FFFF AND 0000. 

ROUTINE 4. TEST I/O 

THIS ROUTINE DOES A TEST I/O & COMPARES CHANNEL STATUS, UNIT STATUS. 
CCW ADDRESS. AH) BYTE COUNT WITH EXPECTS) CHANNEL STATUS WORD. 

ROUTINE 5. NO-OP 

THIS ROUTINE COMPARES CHANNEL STATUS RECEIVED WITH THE STATUS 
EXPECTED (CHANNEL END DEVICE END) AFTER EXECUTING A NO-OP COMMAND. 

ROUTINE 6. BYTE COUNTER REGISTER 

THIS ROUTINE CHECKS THE DECREMENTING AND CARRY PROPAGATION OF THE 
REGISTER. 15 BYTE COUNT CONFIGURATIONS ARE ISSUED AND THE RESULTANT 
BYTE COUNTS COMPARED WITH A BYTE COUNT 'SHOULD BE" TABLE. 

ROUTINE 7. TRANSFER IN CHANNEL 

THIS ROUTINE ISSUES A TIC TO A NOP IN LO CORE AND COMPARES 
THE RESULTANT CCW AODRESS WITH A CCW 'SHOULD BE'. 



ROUTINE 8. SENSE 

THIS ROUTINE EXERCISES THE SENSE I/O COMMAND AND COMPARES THE RESULT- 
ING CHANNEL STATUS WORD WITH THE CSW EXPECTED. IT ALSO VERIFIES THE 
TRANSFER OF FOUR BYTES OF SENSE DATA. 

ROUTINE 9. DATA CHECK 

THIS ROUTINE ATTEMPTS TO SENSE DATA INTO A STORAGE PROTECTED AREA AND 
COMPARES THE CHANNEL STATUS UNIT STATUS AND CCW ADDRESS RETURNED 
AGAINST THE CSW EXPECTED. 

SECTION 2. 

ROUTINE 1. DATA CHAIN 

THIS ROUTINE TESTS DATA CHAINING BY STARTING A CHAIN OF CCWS THAT 
CAUSE DATA TRANSFER TO SEPERATE STORAGE AREAS. 

ROUTINE 2. COMMAND CHAIN 

THIS ROUTINE STARTS A CHAIN CONSISTING OF A NO-OP AND A SENSE I/O. 
THE CS, US, AM) CCW ADDRESS REGISTER RETURNED ARE COMPARED WITH THE 
EXPECTED CSW. THE SECOND COMMAND IN THE CHAIN, THE SENSE, IS TESTED 
TO SEE THAT DATA TRANSFER TOOK PLACE. 

ROUTINE 3. INCORRECT LENGTH (SILI BIT OFF) 

THIS ROUTINE ISSUES A SENSE COMMAND WITH AN INVALID BYTE COUNT AND 
SUPPRESS INCORRECT LENGTH INDICATOR (SILI) BIT OFF. EXPECTED CS OF 
HEX 4200 IS COMPARED WITH ACTUAL CS RECEIVED. 

ROUTINE 4. INCORRECT LENGTH (SILI BIT ON) 

SAME PROCEDURE AS ROUTINE 3 EXCEPT SL I BIT IS ON IN CCW. EXPECTED 
CHANNEL STATUS DOES NOT HAVE INCORRECT LENGTH BIT SET. 

ROUTINE 5. SKIP 

THIS ROUTINE TESTS THE ABILITY OF THE CHANNEL TO SKIP DATA TRANSFER 
BY ISSUING A CCW THAT WILL SUPPRESS TRANSFER OF THE 
SENSE INFORMATION REQUESTED. 

ROUTINE 6. PROGRAM CONTROLLED INTERRUPT 

THIS ROUTINE ISSUES A CCW WITH THE PCI BIT SET AND TESTS THE 
CAUSE OF INTERRUPT TO DETERMINE THE EFFECTIVENESS OF THE PCI 
BIT. 

SECTION 3. 

ROUTINE 1. NOT OPERATIONAL 

THIS ROUTINE USES A SUSPECTED NOT OPERATIONAL DEVICE (INVERSE OF 
CIRCUITS. EXPECTED CHANNEL STATUS OF 8000 IS COMPARED TO THE CHANNEL 
DEVICE ADDRESS ENTERED IN BIT SWITCHES) TO TEST THE NOT OPERATIONAL 
STATUS RECEIVED. 

ROUTINE 2. COMMAND REJECT 

THIS ROUTINE ISSUES A START I/O WITH A CCW COMMAND OF HEX FF. A UNIT 
CHECK IS EXPECTED AM) THE SENSE BYTES FROM THE DEVICE ARE TESTED TO 
INSURE THAT COMMAND REJECT WAS ON. 

♦♦NOTE- TURN 'ON' BIT 9 SWO IF CONTROL UNIT BEING USED IS A 
360 CA OR 2501. 

ROUTINE 3. HALT I/O 

THIS ROUTINE STARTS A CHAIN OF CCW'S (TIC TO A SENSE) THAT SHOULD PUT 
THE CHANNEL IN A BUSY STATE. IF THE CHANNEL DOES GO BUSY A HALT I/O 
IS ISSUED AM) THE CHANNEL STATUS IS CHECKED FOR CHANNEL END, DEVICE 
END AND NOT BUSY. NOTE - AN ERROR 00 (NO INTERRUPT OCCURRED) 
INDICATES THAT THE HALT I/O D ID NOT TERMINATE THE CHANNEL LOOP. 
THE CHANNEL IS STILL BUSY AM) RESET-RESTART IS NECESSARY TO CONTINUE. 
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ALL ROUTINES - NOTE J 

?rc:AR^RTsTfc SS 0F N T^TA T L HE cr:s?0 T N AT ^ tT ChLneT " T^S ££»* 
DUE TO NO CHANNEL POLLING OR NO CoSU*» OUT. * ™ IS C0VL ° BE 

ALL ROUTINES - NOTE 2 

Z FA^F N Tn L rfrc TUS B " S *"* ZER °* TMERE ,S A POSSIBILITY 
OF FAILURE TO GATE OUT OR TO DECODE ANY COMMANDS. 

COMMON SUBROUTINES 
1. START I/O 

* K6 OCCUR. (SEE 4.1.3 - ERROR PRINTOUT) 
2. EROUT. 

™»"S iSsSS^c.r^r.^T ogT a " "»- 
SL2£r™*irr , s i ..~ " ; "" ; * ^fss .Tr"'- 



6. APPENDIX 



6.1 



CHANNEL STATUS WORDS DEVICE AND CHANktFi 
STATUS BIT BREAKDOWN IN HEX CHANME l- 




&*■ 



UNIT NOT OPERATIONAL 

UNIT STATUS PENDING 

PROGRAM CONTROL INTERRUPT 

PROGRAM CHECK 

ATA CHECK 
•CONTROL CHECK 
-INCORRECT LENGTH 
—ADAPTER BUSY 

*• * •ATTENTION — •-' 

40 STATUS MODIFIER • 

2» CONTROL UNIT END «i 

I . BUSY _ , - ■* 

"IK - *— CHANNEL END ' 

• 4 DEVICE END . 



C 5> '•*"' 



yyv/ UOlt AC 



O^i 



It 



• 2 UNIT CHECK 

• 1 UNIT EXCEPTION fi. 



7 



AORS - CHANNEL CCW ADDRESS REGISTER 
WW - CHANNEL STATUS IN HEX 
*££f " UNIT ^"ESS/UNIT STATUS IN HEX 
CNTR - CHANNEL BYTE COUNT REGISTER 
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».J TABLE OP SENSE BYTES 



(<((!(((<(( <<<((< 



PACE » 



I r 


SENSE »VTE 




Sfc'.SE IYTE • 
1 


SENSE BYTE 
I 


SENSE BYTE 
3 


■; 


COMMAND 
REJECT 


DATA CHECK 
IN COUNT AREA 


UNSAFE 


READY 


*IT 
1 


INTERVENTION 
REQUIRED 


TRACK 
OVERRUN 




ON LINE 


• IT 
1 


•US ■ OUT 
PARITY 


ENO OF 
CYLINDER 


SMIALIIER 
CNUk 


UNSAFE 


• IT 

J 


EQUIPMENT 
CHECK 


INVALID 
SEQUENCE 






• IT 


DATA 
CHECK 


NO RECORD 
FOUND 


ALU 
CHECI 


ON LINE 


• IT 

s 


OVERRUN 


FILE 
PROTECTED 


(•SELECTED 
FILE STATU 


END OF 
CYLINDER 


• IT j 
« 


TRACK 

CONDITION 
CHECK 


HISSING 
ADDRESS 
MARKER 






(IT 
7 

- 


SEEK 

CHECK 


OVERFLOW 
INCOMPLETE 




SEEK 

INCOMPLETE 













* BLANK POSITIONS ARE "NOT 



USED" 
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6.3 

THE 

1. 
2. 
3. 

THE 

1. 
2. 
3. 


FOLLOWING EDIT CARDS ARE REQUIRED BY THIS PROGRAM: 

CARD - MUST CONTAIN 2 EDITS. THE FIRST MUST DEFINE THE LOG DEVICE AND THE SECOND 
END CARD - MUST HAVE FFFF IN COLUMNS 7"I0. 
SEE NOTE 2. 

DEVICE DEFINITION EDIT FIELD (DDEF) INCLUDES THE FOLLOWING: 

THE INTERRUPT LEVEL ASSOCIATED WITH THE DEVICE. 
THE ILSW BIT POSITION ASSOCIATED WITH THIS DEVICE. 
THE CHANNEL ASSIGNED TO THIS DEVICE. 

NOTE 1 - THIS PROGRAM HAS ITS OWN LOG ROUTINE. THE FIRST ENTRY ON THE EDIT CARD IS 

NOTE 2 - THE SELECTOR CHANNEL EDIT ENTRY FOR THE DIAGNOSTIC MONITOR (DM) SHOULD NOT 

DDEF DDEF 
SEL. 
LOG DEV. CHAN. 
NOTE 1 . NOTE 2. 


MUST DEFINE THE SELECTOR CHANNEL. 

ASSOCIATED WITH THE C.E. LOG DEVICE. 
CONTAIN A UNIT ADDRESS FOR A 2311 DISK 


DRIVE OR 


A 


2841 CONTROL 


UNIT. (i 


•e. 


9000) 








a 
z 

2 

o 
o 

ec 

a. 








ec 

z 

UJ 

o 

z 

UJ 

o 

UI 

to 

Q 

< 






UJ 

.ec 

\- 
z 

UI 

u. 
o 

ec 

UI 
OQ 

X. 

2 




INTERRUPT LEVEL 

(HEX) 
ILSW BIT (HEX) 
CHANNEL OR F 




INTERRUPT LEVEL 

(HEX) 
ILSW BIT (HEX) 
CHANNEL OR F 














• 




























COLUMN 


» 


1 


3 


i* 


5 


6 


7 


8 


9 


10 


II 


12 


13 


lk 


IS 


16 


17 


18 


19 


20 


21 










26 










31 










36 










H\ 










u 










51 










56 










61 










66 










71 










CARD 


E 


1 











^ 


E 


D 








8 











2 


S 


X 


X 


X 


X 


8 


X 


X 


X 


x 


8 










8 










§ 










S 










i 










a 










8 










S 










s 










§ 
















END CD 


E 


1 











a 


F 


F 


F 


F 


S 










8 










S 










a 










8 










S 










S 










§ 










8 










5§ 










8 










s 










S 




















































s 










§ 










S 










8 










a 










8 










§ 










S 










§ 










§ 










^ 

£ 










S 










a 










S 


























§ 










VN 










S 










S3 










s 










s 










S 










S 










s 










s 










§ 










5? 










s 










8 






















§ 










§ 










§ 










S 










a 










a 










8 










8 










§ 










S 










3 










8 










§ 










§ 


— 
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SELECTOR CHANNEL 
ADDR REL OBJECT 



012C 
01 2D 
012E 
012F 
0130 
0131 
0132 
0133 
0134 

0000 



07FF 1000 

0800 0001 

0801 0000 



0008 
0009 
000A 
OOOA 
OOOfa 
OOOC 
OOOD 
OOOE 
COOF 



0802 O 

0803 

0804 

0805 

0806 1 

0807 1 
0608 1 
0809 1 
08 09 
080A 
08 06) 



0000 
0000 
FFOO 
0000 
093C 
094D 
096C 

0000 
0000 
0000 



DATE 

EC NO. 



14N0V69 
431il9 



DI AGNOST 
ST. NO. 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
^0 10 
0011 
00 12 
0013 
00 14 
0015 
0016 
0017 
00 18 
C019 
00 20 
002' 
0022 
0023 
00 24 
0025 
0020 
0027 
00 28 
0029 
00 30 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
00 38 
0039 
004" 
0041 
00 41 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
00 50 



IC/1800 

LAbcL OPCO 



FT OPERANDS 



30JAN70 
431319A 



*************************************************** 

* * 
*************************************************** 
* 

* 1800 MONITOR INTERFACE 
* 

***:******* ********?:■?:*********-. ********************* 

* * 

*******************:. is***************************** 



BEGIN EOU 

START EOU 

END EOU 

LOG ECU 

ERROR EOU 

REOOV EOU 

RELDV EOU 

CRCK EOU 



MATO 

* 



EOU 



300 

BEGIN+1 

START+1 

END+1 

LOG+1 

ERROR+1 

REODV+1 

RELOV+1 

CRCK+1 

S+/07FF 



ORIGIN OF PGM 



MONITOR INTERFACE TA9LES 



TPID 
TS1D 
TSAD 



DC 

DC 

DC 

* EOUATES 

OLPST EDO 
C^CriT EOU 
OPRRS EOU 
OTTLE EOU 
OFiTRY tOU 
OLPEW EOU 
OPYPR EOU 
OHALT E3U 
OCHLT EOU 



/I000 

1 


tor 

8 



ADDRESS 



SECTION ID 

SECTION PREFACE 

TiiWO SWITCH OPTIONS 

LOOP SIO.TIO 

9 BYPASS CMND REJ fiTN 

10 PPIt.T RESULTS 

10 PRINT 3TN TITLES 

11 RETRY SIO 

12 LOOP ERROR 

13 BYPASS ALL PRINTOUTS 

14 HALT ON ERROR 

15 CLEAR ERROR HALT 



TSWO 

TSW1 

TSW2 

TSW3 

IPA 

LPA 

EPA 

MLSCF 

MLSCO 

MLSC1 



DC 

DC 

DC 

DC 

DC 

DC 

DC 

EQU 

DC 

DC 



MLSC2 DC 







/FFOO 

O 

ZIPA 

ZLPA 

ZEPA 

* 

C 







SELECT OPTIONS 
SELECT SECT AND RTN 
UNIT ADDRESS 

INIT PRGM ADDRESS 
LOOP PRGM ADDRS 
END PRG ADDRS 
MONITOR CONTROL FIELD 
ENTRY ZERO 

ONE 

TWO 



1SSEP71 
431328 



20N0V72 
431337 



ID/SEQNO 
81000020 
81000030 
81000040 
81000050 
61000060 
81000070 
81000080 
81000090 
61000100 
8100011 
81000120 
8100C130 
81000140 
81000150 
8100C»60 

e'.oooiv o 

81000180 
81000190 
81000200 
8100021 O 
81000220 
81000230 
61000240 
81000250 
8100C260 
81000270 
61000280 
81000290 
81000300 
8100031 
rtl000320 
81000330 
fi. 000340 
810003r.O 
K 1000360 
81000370 
81000380 
U"00390 
61000400 
6100041 
81000420 
8100043 
6100044^ 
31000450 
81000460 
81000470 
81000480 
81000400 
E1000500 



PROG ID 
PAGE 



081 0-1 

1 
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IBM MAINTENANCF. DIAGNOSTIC PROGRAM FOR THE 180C SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL 
ADDR REL OBJECT 



08 OC 





FFFF 


080D 


1 


156C 


08Cc 





0000 


080F 





0000 


Ob i 





0000 


081 1 





0000 


0812 





0000 


0813 





0000 


0814 





0000 


0815 





0000 



087F 
0816 
0817 
0818 
0819 
081A 
T31B 
C81C 
03 ID 
381E 
08 IF 
0820 
0821 
0822 
0823 
0824 
0825 
0826 
0827 
0828 
0829 
082A 
082B 
082C 
082D 
082E 
082F 
0830 
083 1 
0632 



DATE 
EC NO. 



0001 
0002 
0003 
0004 
0006 
0007 
OOOE 
0009 
OOOA 
0014 
0064 
007F 
0080 
01F4 
03E8 
OOOA 
0011 
00 13 
0027 
007C 
0080 
00C6 
00C8 
OOFF 
0100 
0200 
0400 
0500 
0700 



14N0V69 
431319 



DI AGNOS 
ST. NO. 
0051 
0C52 
0053 
0054 
00 55 
0056 
0057 
0058 
0059 
0060 
00 61 
0062 
00 63 
0064 
0065 
0066 
0067 
0068 
00 69 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0C77 
0078 
0070 
OOOO 
0081 
0082 
0083 
0084 
0085 
0086 
0OB7 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 



TIC/1800 

LABEL OPCD 

TERM DC 

DC 

DC 

DC 

DC 

DC 

DC 

TLGED DC 

TSCED DC 

TR1D DC 

********** 

* 
********** 



3OJAN70 
431319A 



FT OPERANDS 
/FFFF 
PEND 




O 



************* 

************* 

E OF CONSTANT 

************* 



LAST ADDRS 

WORDS FOR MONITOR USE 



LOG EDIT 
SEL CHANNEL EDIT 
ROUTINE ID 
*************** **********:»** 

* 

**************************** 



********** 



**,.******************** 



EOU 

PC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



TB 

Kl 

K2 

K3 

K4 

K6 

K7 

K8 

K9 

K10 

K20 

K10C 

K127 

K12S 

KSOO 

K1000 DC 

HOOOA DC 

H0011 DC 

H0013 DC 

H0027 DC 

H0070 DC 

H0080 DC 

H00C6 DC 

H00C8 OC 

HOOFF DC 

H0100 DC 

H0200 DC 

H0400 DC 

H0500 DC 

H0700 DC 



TPID+128 

1 

2 

3 

4 
6 

7 

a 

9 

10 

20 

100 

127 

128 

500 

1000 

/OOOA 

/OOU 

/0013 

/0027 

/0070 

/0080 

/O0C6 

/00C8 

/OOFF 

/0100 

/0200 

/0400 

/0500 

/0700 



**************************** 
**************************** 

SO TBL CAN REACH PST T8L 

CONSTANT ONE 

CONSTANT 

CONSTANT 

CONSTANT 
CONSTANT 
CONSTANT 



CONSTANT 



CONS lAf'T 

CONSTANT 
CONSTANT 
CONSTANT 



LINE TERMINATOR 

C0^4STAMT 

CO'.STANT 

CONSTANT 

CCSTTANT FO^ WRITE IOCC 

CONSTANT FOR SENSF DSW ICC 



PART NO. 2279464 
PAGE 1A 



ID/SEONO 
8100051 O 
8100052 
S10OO530 
810005* 
81000550 
8100056 
81000570 
31000580 
81O00590 
81000600 

eiooocio 

81 10062 
8 <00063 
81000640 
61000650 
81000660 
6 1000670 
8100068 
81000690 
81000700 
8100071 
81000720 
81000730 
81 000740 
81000750 
81000760 
81000770 
81000760 
81000790 
81000800 
81000810 
81000820 
81000830 
81000840 
81000850 
81000860 
81000670 
810008S0 
81000890 
81000900 
8100091 J 
81000920 
81000930 
3100094 
31000950 
810C0960 
81000970 
U10009*0 
8100099C 
81001000 



15SEP71 
431328 



20NOV72 
431337 



PROG ID 
PAGE 



• 



081 0-1 
1A 



€ 



e 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE laOO SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



PART NO. 2279464 
PAGE 2 



• 



<i 



< 



SELECTOR 


CHANNEL 


DIAGNOSTIC/1800 










ADDR 


REL OBJECT 


ST. NO. 


LABEL JPCD 


FT OPERANDS 






ID/SEQNO 


0833 





OAOO 


0101 


HOAOO DC 


/OAOO 






8100101 


0834 





OEOO 


0102 


HOEOO DC 


/OEOO 






61001020 


0835 





2100 


0103 


H210C DC 


/2100 






81001030 


0836 





3000 


0104 


H3000 DC 


/3000 






81001040 


0837 





4000 


0105 


H4000 DC 


/4000 


CONSTANT 




81001050 


0838 





5000 


0106 


H5000 DC 


/SOOO 


CONSTANT 




81001060 


0839 





7FFF 


0107 


H7FFF DC 


/7FFF 






81001070 


083 A 





8000 


0108 


H8000 DC 


.'8000 






siooioeo 


083B 





COOO 


0109 


HCOOO DC 


/COOO 






81001090 


083C 





FOOO 


OHO 


HFOOO DC 


/FCOO 






81001100 


083D 





FFOO 


0111 


HFFOO DC 


/FFOO 






81001 11 


083E 





0000 


0112 


CNTDN DC 









81001120 


083F 





0000 


0113 


ERTSW DC 


*-* 






81001130 


084 





0000 


0114 


TSCTN DC 


*-* 


SECTION NUMBER 




81001140 


0841 





0000 


0115 


TRTNN DC 


*-« 


ROUTINE NUMBER 




HI 001 15 


084 2 





0000 


01 16 


TCNSW DC 





ERROR SWITCH FOR 


RTNS 


81001160 


0843 





ooco 


0117 


TCVS1 DC 









81001170 


0844 





0000 


0118 


TCVS2 DC 









8100UH0 


0845 





jOOO 


0119 


CAWSV DC 


*-* 


CC* ADDRESS SAVE 


\REA 


81001 190 


084 5 




0002 


0120 


ERTSV BSS 


E 2 


SENSE INFO SAVE 




81001200 


0848 




0004 


0121 


TYP2 DMES 


1 SIO.'E 






8100121 


084 A 




0004 


0122 


TYP3 DMES 


1 SNS.'E 






81001,' >0 


084C 




0004 


0123 


TYPCS DMES 


1 CS •£ 






8100123C 


084E 




0004 


0124 


TYPUS DMES 


1 us •£ 






81001240 


0850 




0004 


0125 


TYPAD DMES 


1 AD 'E 






P1001250 


0852 




0004 


0126 


TYPbC DMES 


1 BC 'E 






81001260 


08; 4 




0004 


0127 


PCAW DMES 


1 CAW •£ 






81001270 


0856 




0004 


0128 


PCSW DMES 


1 CSW >E 






81001280 


0858 




0004 


0129 


PSNS DMiS 


1 SNS'E 






81001290 


085A 




0002 


0130 


SPACE DMES 


; 'E 


SPACES IN 43 CODE 




81001300 


085B 




0004 


0131 


NCARE OWES 


1 XXXX'E 






.il 001 31 


085D 





0000 


0132 


DVADR DC 


w-» 


DEVICE ADDRESS TO 


BE TESTED81001320 


085E 





0000 


0133 


SIOSW DC 


*-* 


FOR SIO RTN 




81001330 


08SF 





0000 


0134 


PASSW DC 


»-* 


USED TO TEST FOR 


ERROR 


81001340 


0860 





0000 


0135 


LGBSY DC 


.*-* 


LOG B'JSY SW 




81001350 


0861 





0001 


0136 


PSCNT DC 


1 


PASS COUNTER 




81001360 


0862 





0000 


0137 


STKSW DC 





SWITCH FOR RE-ENTRANCE 


81001370 


0863 





0000 


0138 


SCPLP DC 









81001380 


0864 





0000 


0139 


TIOSW DC 





TEST lO SW 




81001390 


0865 





0000 


M40 


SPROT DC 


»-* 


STORAGE PROTECTED 


WORD 


81001400 


0866 





0000 


ol41 


LPCM DC 


*-« 


LOOP CNTR 




8100141 


0867 





0000 


0142 

* 0143 

0144 

0145 


T45SW DC 

* 
* 

* 





0= NOT CALLED 

1=1443 

2=1053/1816 




81001420 
81001430 
8100.440 
el001450 


0868 





0000 


0146 


CNTRL DC 


*-* 


CONTROL ROUTINE 




81001460 


0869 


01 


4C0009B1 


0147 
0148 


BSC 

* 


L TCNTE 


GG TO ROUTINE 




81001470 
810C1480 


086b 





0000 


0149 


eROUT DC 


*-* 


ERROR PRINTOUT ROUTINE 


8100 119 


08 6C 


01 


4C0012C0 


0150 


BSC 


L ERTNE 


GO TO RTN 




81001500 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



20N0V72 
431337 



PROG ID 
PAGE 



081 0-1 
2 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 
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SELECTOR CHANNEL 
ADDR HEL OBJECT 

086E O 0000 

066F 01 4C001016 

0871 O 0000 

0872 01 4COO0FF2 

0874 O 0000 

0875 01 4C001020 

0877 0000 

0878 01 4C0C11DF 

0H7A O 0000 

087B 01 4C0014D4 

087D O 0000 

087E 01 4C0014F2 

0360 0000 

0881 01 4CO01220 

0883 O 0000 

0884 01 4C00136fc 

0886 O 0000 

0887 01 4C001160 

8000 O 
4 000 
2000 
1000 



DIAGNOSTIC/1800 



0080 

0040 

0C20 O 

000a O 

0010 



T.NO. 


LABEL 


OPCD 


FT 


OPERANDS 




ID/SEQNO 


0151 


* 










8100151 


0152 


FREDV 


DC 




*-* 


RELEASE CHANNEL ROUTINE 


81001520 


0153 




BSC 


L 


FRDVE 


GO TO ROUTINE 


81001530 


0154 


* 










81001540 


0155 


GETDV 


DC 




*-* 


CHANNEL ROUTINE 


81001550 


0156 




BSC 


L 


GTDVE 


GO TO ROUTINE 


81001560 


0157 


* 










81001570 


158 


SIO 


DC 




»-» 


5TART I/O ROUTINE 


81001580 


0159 




BSC 


L 


SIONT 


GO TO RTN 


81001590 


0160 


* 










81001600 


0161 


STI-'.LS 


DC 




*-* 


SET MLSCF ROUTINE 


8100161 


0162 




BSC 


L 


STMLE 


GO TO RTN 


31001620 


0163 


* 










81001630 


0164 


TCVBE 


DC 




*— * 


CONVERT HEX TO 1443 


81001640 


0165 




BSC 


L 


TCVBN 


GO TO RTN 


81001650 


0166 


* 










81001660 


0167 


TCVHD 


DC 




*-* 


CONVERT HEX TO DFC 


81001670 


0168 




BSC 


L 


THEXD 


GO TO RTN 


81001680 


0169 


* 










81001690 


0170 


THALT 


DC 




*-* 


ENTRY POINT 


81001700 


0171 




BSC 


L 


TILTE 


GO TO RTN 


810C171 


0172 


* 










8 1 1 72 


0173 


TLG IS 


DC 




*-* 


PRINT RTN 


81001730 


0j74 




BSC 


L 


TLGME 


GO TO RTN 


81001740 


0175 


v 










81001750 


176 


PIOCC 


DC 




t-* 


PRINT IOCC'S AND CCW'S 


81001 760 


0177 




BSC 


L 


PIONT 


GO TO RTN 


61001770 


0176 


* 










810"178« 


0179 


PYPCS 


EOU 




/aooo 


BYPASS CKING-CHiN STATUS 


81001790 


180 


BYPUS 


EQU 




/4000 


-UNIT STATUS 


810018.10 


Olfil 


8YPAD 


EOU 




/2000 


-CSW ADDRESS 


8100181 


182 


BY°dC 


EQU 




/1000 


-BYTE CNTR 


81001820 


0183 


-. 










81001830 


184 


***¥* 


£**** 


***«**********»***************«*»****<*** 


81001840 


0185 


* 








* 


81001850 


0186 


**«*#####:**:¥X:#******#***#*#************************ 


310C1860 


0187 


* 










81001870 


188 


* 


EQUATES 


AND CONSTANTS 'OR CCW'S 


81001880 


0189 


* 










3100'890 


0190 


»»*********«* 


¥¥**#****#*#*#************************ 


81001900 


0191 


* 








* 


8100191 


0192 


***##**##^ 


************»*****************»»*****■<*** 


810C192 


0193 


* 










81001930 


0194 


* 


FLAGS 






8100194 


0195 


S 










810019S0 


0196 


FLDCH 


EOU 




/bO 


DATA CHAINING 


81001960 


0197 


FLCCH 


EOU 




/40 


COMMAND CHAINING 


81001970 


198 


FLSLI 


EQU 




/20 


SUPPRESS INCORRECT LNG 


81001980 


0199 


FLSKP 


EQU 




,08 


SKIP BIT 


81001990 


0200 


FLPCI 


EQU 




/10 


. GM CONTROLLED INTERRUPT 


8100LJ0O 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



20NOV72 
43133 7 



PROG ID 
PAG2 



f 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR- THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL 
ADOR RfcL OBJECT 



o 

9 



0000 





0001 





0002 





0003 





0005 





0006 





00 04 





0007 





Ool 1 





0008 





000B 





0013 





00 12 





001A 





00 IE 





0029 





OOOE 





OOOD 





00 16 





009A 





00 lb 





0039 





0049 





0051 





0069 





0071 





003 1 





001F 





00 ID 





0019 





00 1b 






ooco 





0001 





0002 





0003 





0004 





000b 





0006 





0007 





0008 






DATE 
EC NO. 



14N0V69 
431319 



DIAGNOSTIC/1800 






ST. NO. 


LABEL 


OPCD FT 


OPERANDS 


201 


* 






0202 


* 


OP CODES 


0203 


* 






0204 


OPTIO 


EOJ 


/OO 


0205 


OPWH 


EOU 


/Ol 


0206 


OPRD 


EOU 


/02 


0207 


OPNOP 


EQU 


/03 


0208 


WRDAT 


EQU 


/OS 


0209 


RDDAT 


EOU 


/06 


0210 


OPSNS 


EQU 


/04 


0211 


SEEKC 


EOU 


/07 


0212 


ERASE 


EOU 


/ll 


0213 


.OPTIC 


EOU 


/06 


0214 


SEEKB 


EOU 


/OB 


0215 


RCAU 


EOU 


/13 


0216 


RDCNT 


ECU 


/12 


0217 


HDHA 


EOU 


/1A 


0218 


RDCKD 


EQU 


/IE 


0219 


SRCKE 


EQU 


/29 


0220 


HDKU 


EOU 


/OE 


0221 


WRKD 


EOU 


/OD 


0222 


RDRO 


EOU 


/16 


0223 


RDHMT 


EOU 


/9A 


0224 


SKHO 


EOU 


/IB 


0225 


SRChA 


EOU 


/39 


0226 


SRCKH 


EQU 


/49 


0227 


SIDHI 


EQU 


/51 


0228 


SKHE 


EOU 


/59 


0229 


SIDH£ 


EQU 


/7: 


0236 


SRCID 


EOU 


/31 


0231 


CFI^M 


EQU 


/ii : 


0232 


•IRK.KD 


EQU 


/ID 


0236 


UPHA 


EQU 


/19 


0234 


WRRO 


f JJU 


/15 


0235 


* 






023^ 


********^*«************* 


0237 


■■* 






0238 


**•*********.. ■ 


*********** 


023$:' 


* 






0240 


W 


E3UATES 


FOR CHANNE 


024i 


* 






024fc' 


SCUNO 


EUU 





0243 


SCUiP 


EQU 


1 


0244 


SCPCI 


t:ou 


2 


024S_ 


SCPCK 


EOU 


3 


0246 


SCDCK 


EQU 


4 


0247 


SCICC 


EOU 


5 


0248 


SCILG 


EOU 


6 


0249 


SCABZ 


EQU 


7 


0250 


SCUOP 


EQU 


8 



TEST I/O 

WRITE OP CODE 

READ OP CODE 

NO-OP 

WRITE DATA 

READ DATA 

SENSE I/O 

SiiEK CYLINDER 

ERASE RECORD 

TRANSFER IN CHANNEL 

SEEK BIN 

RECALIBRATE 

RD COUNT 

READ HOME ADDRESS 

RD COUNT KEY DATA 

SEARCH KEY EQUAL 

RD KEY DATA 

WR KEY DATA 

R<;AD RECORD ZERO 

R»=AD HA N'ULT Z TRACK 

SEEK HEAD 

SEARCH HA 

SEARCH KEY HI 

SEARCH ID HI 

SEARCH KEY HI/EO 

SEARCH ID HI/EQ 

SEARCH ID 

SET FILE MASK 

\*RT CUT .KEY, DATA 

WRITE HA 

WRITE RECORD O 

****************»?********* 

* 
*************************** 

L STATUS DSW'S 

UNIT NOT OPERATIONAL 

UNIT STATUS PENDING 

PGM CNTRL INT. 

PGM CHECK 

DATA CHECK 

INTERFACE CNTRL CHECK 

INCORRECT LE.MCTH INDICATOR 

ADAPTER BUSY 

UNIT OPERATIONAL 



PART NO. 2279464 
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ID/SEQNO 
8100201 
81002020 
81002030 
81002040 
81002050 
81002060 
81002070 
81002030 
81002090 
81002100 
8100211 
81002120 
61002130 
81002140 
81002150 
81002160 
81C02170 
81002160 
8] 002190 
61002200 
8100221 n 
81002220 
81002230 
6 I 00 22 '.(J 
8S0022S0 
8100i260 
81002270 
81C02280 
81002290 
81002300 
8100231 
8101,232 
81002330 
fit002340 
81002350 
81002360 
81002370 
81002380 
81002390 
81002400 
6100241 O 
81002*20 
81002430 
91002440 
81 002450 
61002460 
61002470 
el002480 
81002490 
61002500 



30JAN70 
431319A 



15SEP71 
431328 



20NOV72 
431337 



PROG ID 
PAGE 



081 0-1 

3 
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SELECTOR CHANNEL 
ADOR REL OBJECT 
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0008 
0009 
OOOA 
OOOB 
OOOC 
OOOD 
OOOE 
OF 



0004 







0005 







0007 







0009 







OOOA 







OOOC 







00 10 







0012 







0016 







0018 







00 19 







001A 







00 ID 







001F 







0889 





0001 


088A 





2003 


088B 


1 


088C 



088C 0001 
088D 20 13 
086E I 088F 



DIAGNOSTIC/1800 












ST. NO. 
0251 


LABEL 

* 


OPCD FT 


OPERANDS 






ID/SEQNO 

8100251 


0252 


*******************,;* ****************„*»*** ,,„.;. 


***** 


81002 52 


0253 


* 








* 


8IO02530 


0254 


*»«4*»*»S»ttt***»«»***9»«**ti S « 4 ,» t «»» t ,, tl ,, tt 


***** 


81002540 


0255 


*****S***S**4. 


********* 


»*********************»**.(;*»,, 


81002550 


0256 


* 








* 


81002560 


0257 
0258 


* 


81OO2570 














81002580 


0259 

0260 


* 


EQUATES 


FOR UNIT 


STATUS DSW 




81002590 












8IO0260O 


0261 


UNATN 


EQU 


8 


UNIT STA-US-ATTENTION 




31OO2610 


0262 


UNSMD 


EOU 


9 


STATUS MODIFIER 




81O02 62 


0263 


UNCUE 


EQU 


10 


CONTROL UNIT END 




81OO2630 


0264 


UNBiY 


EQU 


1 1 


UNIT BUSY 




8 1 002 64 


0265 


UNCHE 


EQU 


12 


CHANNEL END 




SI002650 


0266 


UNDVE 


EQU 


13 


DEVICE END 




8100266 


0267 


UNCHK 


EQU 


14 


UNIT CHECK 




81002670 


0268 


UNEXC 


EQU 


15 


UNIT EXCEPTION 




8100268 


0269 


***v#******** 


!*S**»M«»»*M}{»j» st!) ,„ M>M .j. 


***** 


81002690 


0270 


* 








* 


81002 70 


0271 


******************>;***< 


************************* <-.** 


8100271 


0272 


* 










81002 72 


0273 
0274 


* 


lQUATES 


FOR 2311 


SENSE BYTES 




81002730 


* 










81002 74 


0275 


FBRST 


EQU 


4 


(BURST) DATA CK 




81002750 


0276 


FOVRN 


EQU 


5 


CHANNEL/2841 OVERRUN 




81002 76 


0277 


FSKCK 


EOU 


7 


SEEK CK 




81002770 


0278 


FTRUV 


EQU 


9 






81002760 


0279 


FEOCY 


EQU 


10 


END OF CYLINDER 




81002790 


0280 


FNOKC 


EQU 


12 


NO RECORD FOUND 




81OO2 80 


o28 1 


FUNSF 


EQU 


16 






8100281 


0282 


FSEltD 


EQU 


18 


SERDES CHECK 




6100282 


0283 


FUNSL 


EQU 


2 1 








264 
0285 


FDRCY 

FONLN 


EOU 
EQU 


24 
25 


DRIVE READY 




81O0283O 
81002 84 
81OO2850 


286 
0287 


FUNSI 
FECYL 


EOU 
EQU 


26 
29 


UNSAFE 

END _••* CYLINDER 




81002860 
81002870 


C288 


FSKIN 


EQU 


31 


SEEK INCOMPLETE 




81O02 68 


0289 


* 












0290 


* 










81002890 
81002900 


0291 


NOPCC 


DC 


1 


BYTE COUNT 




81002910 


0292 




DC 


/20*256+OPNOP FLAGS AND OP CODE 




81002920 


0293 
• 294 


* 


DC 


* 


ADDRESS 




81002930 


0295 


* 










31002940 


C296 


RECAL 


DC 


1 


BYTE COUNT 




81OO2950 
31 002960 


02 97 




DC 


/20*256+RCAL FLAGS AND OP CODE 




61002970 


0298 
0299 


* 


DC 


* 


ADDRESS 




6100298 


0300 


* 










81002990 
8100300 



DATE 
EC NO. 



14NOV69 30JAN70 15SEP71 20NOV72 
431319 43.319A 431328 431337 
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ISM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



PART NO. 2279464 
PAGE 4 



SELECTOR CHANNEL 


DI AGNOSTIC/1 800 


















ADDR 


REL OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 










ID/SEQNQ 


088F 





0001 


0301 


TSCCW 


DC 




1 


BYTE COUNT 






8100301 


0890 





2000 


0302 




DC 




/20*256+OPTIO FLAGS ANO 


OP 


CODE 


81003020 


0891 


1 


0892 


0303 




DC 




TSWDS 


ADDRESS 






81003030 








0304 


* 
















81003040 


0892 





0000 


0305 
0306 


TSWDS 

* 


DC 




»-* 










81003050 
81003060 


0693 





U006 


0307 


SNCCW 


DC 




6 


BYTE COUNT 






81003070 


0894 





0004 


0308 




DC 




0*256+OPSNS FLAGS AND OP 


CODE 


81003080 


0895 


1 


0896 


0309 




DC 




3NWDS 


ADDRESS 






81003090 








0310 


* 
















81003100 


089l 




0004 


0311 


SNWDS 


BSS 


E 


4 


SENSE 


BYTES 






810031 1 


08 96 


1 




0312 


SNWDO 


EOU 




SNWDS 










81003120 


0897 


1 




0313 


SNWD1 


EOU 




SNWDS+1 










81003130 


0898 


1 




0314 


SNWD2 


EOU 




SNWOS+2 










81003140 


0899 


1 




0315 


SNWD3 


ECU 




SNWDS+3 










81003150 


089A 


1 


088F 


0316 


TIOXX 


DC 




TSCCW 


TIO CCW 






81003160 


08 9B 





0000 


0317 




DC 




*-* 


TO BE 


FILLED 


IN 




81003170 


08 9C 





0000 


0318 


HIOXX 


DC 




*-* 










81003180 


089D 





0000 


0319 




DC 




*-* 










81C03190 


08 5E 


1 


0S93 


0320 


SENSE 


DC 




SNCCW 


SENSE 


10 W/SUPPRESS kOLI. 


8100.'200 


089F 





0000 


0321 




DC 




*-* 


TO BF 


FILLED 


IN 




8100321 


08A0 





0000 


03 22 


SIOXX 


DC 




*-* 


TO BE 


FILLED 


WITH CCW ADDR 


81003220 


08A1 





0000 


0323 




DC 




*-* 


TO BE 


FILLED 


IN 




81003230 


08A2 





0000 


0324 


SCSNO 


DC 




*-* 










81003240 


08A3 





0000 


0325 




DC 




*-* 


= 08 








810032!: 


08A4 





0000 


0326 


SCSN1 


DC 




*-* 










81003260 


08A5 





000 


0327 . 

0328 , 




DC 




*— * 


= 09 








81003270 


08A6 





oooc 


SCSN2 


DC 




*-* 










81003280 


08A7 





0000 


0329 ! 




DC 




»-» 


■ OA 








81003290 


08A8 





0000 


0330 


SCSM3 


DC 




»-* 










81003300 


08A9 





0000 


0331 




DC 




*-» 


= OB 








810033; 


08AA 





0000 


0332 


SCS.M4 


DC 




*-<= 










8100i320 


08AB 





0000 


0333 




DC 




r-* 


= OC 








81003330 


08 AC 





0000 


0334 


SCSN5 


DC 




*-» 










81003340 


06AD 





0000 


335 




DC 




*-v 


= 06 








810033EO 


08AE 




000-* 


0336 


scrxc 


BSS 


E 


4 


START 


I/O SAVE 


AREA 


81003360 


08B2 




0004 


0337 


SCSX4 


faSS 


E 


i 


START 


I/O SAVE 


AREA 2 


81003370 


08B6 




0004 


0338 . 


SCSX8 


BSS 


E 


4 


TIO SAVE AREA 






81003380 


08BA 




0004 


0339 


scsxc 


BSS 


E 


4 


SENSE 


I/O SAVE 


AREA 


8100339G 


08BE 




0004 


0340 


scsvs 


BSS 


E 


4 


SAVE 


AREA FOR 


SENSE INFO 


81003400 


08C2 




0003 


034 1 t 


HA 


BSS 


E 


3 










8100341 


08C6 




0000 


0342 ' 




BSS 


E 













61003420 


08C6 


1 


149E 


0343 ' 


TLGWR 


DC 




TLGBA 


IOAREA 


ADDRESS 






81003430 


08C7 





0000 


0344 




DC 




»-* 


TO BE 


F ILLED 


IN 




81003440 


08CK 





0000 


0345 


TLGSP 


DC 




/oooo 


SPACE 


IN 1443 


CODE 


P1C034S0 


08C8 


1 




0546 


TLGSN 


EOU 




TLGSP 


SENSE 


DSW IOCC 






81003460 


08C9 





000G 


0347 




DC 




»-* 


TO BE 


FILLED 


IN 




81003470 


08CA 





0000 


0348 


TLGCT 


DC 







LOOP 


COUNT FOR 


PRNTR INT 


61 003480 


08CB 





0000 


0349 


TLGSW 


OC 







1ST/2ND CHAR 


S* 


( 1053) 


8.003490 


08CC 





0000 


0350 


TLGSR 


DC 







IST/2N0 CHAR 


SW 


(TLGCH) 


31003500 



OATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



20N0V72 
431337 



PROG ID 
PAGE 



081 0-1 
4 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



PART NO. 2279464 
PAGE 4 A 



SELECTOR CHANNEL 


CI AGNOSTIC/1800 












ADDR 


KEL OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPFRANDS 




IO/SEQNO 


08CD 





0000 


0351 
0352 


* 


DC 




*-* 


SENSE/RESET DSW 


81003510 
8100352 


08CE 




0010 


0353 


STSEP 


DM'S 


1 


XX ERROR 


ON XXX 'E 


81003530 


0606 




OOOC 


0354 




OMES 


1 


SECT X.RTN X «E 


81003540 


080D 





KFFF 


0355 




DC 




/FFFF 




81003550 


oeDfc 




0012 


0356 


UNA OR 


DMES 


1 


UNIT XX 


ADRS XXXX'E 


81003560 


06E7 


c 


FFFF 


0357 




DC 




/FFFF 




81003570 








0358 


*«*»i*«**********t*t****#***»*t***t***»*****^*»»*** 


81003580 








0359 


* 








» 


8!003590 








0360 


*»»»tt*t»S«ltt»*»*t***t»*t»*»**S*»»t*<*ft»**Ht*** 


81 00360 








0361 


* 










8100361 








0362 


* 


SELECTOR CHANNEL 


INTERRUPT ROUTINE 


8100362 








0363 


* 










8100^630 








0364 


♦***********»***»*******************#****»******»** 


81003640 








0365 


* 








* 


P1003650 








0366 


*»****»*»***************.»**<.*«******»*******»»***** 


81003660 


08E8 





0000 


0367 


SCISW 


DC 




*-* 


INT EXPECTED S» 


81003670 


08E9 





0000 


0368 
0369 


TSCAC 

* 


DC 




*-* 


SEL CHAN AREA CODE 


81003680 
81003690 


086A 





0000 


0370 


SCINT 


DC 




»-* 


INT ROUTINE ENTRY 


81003700 


C8EB 





6A17 


0371 




STX 


2 


SCIN4+1 


SAVE XR2 


8100371 


'•8tC 


01 


6600087F 


0372 
03'3 


* 


LDX 


L2 


TB 


SET UP TABLE POINTER 


8100372 
81003730 


ObEE 





C269 


0374 




LD 


2 


SCISW-TB 


GET INT EXP SW 


81003740 


08EF 


1 


4C160BF4 


0375 
0376 


* 


BZ 




SCIN? 


BR IF NOT SET 


8100^,750 
81003760 


08F 1 


01 


670008AE 


0377 




LDX 


L3 


SCSXO 


POINT TO SAVE AREA 


81003770 


08F3 





7006 


0378 




MDX 




SCIN3 




810037O0 








0379 


* 


GET 


HERE ON UNEXPECTED INTERRUPT 


81003790 


08F4 


01 


67000908 


0380 


SCIN2 


LDX 


L3 


SCIN5 


SET UP PETURN 


81003800 


06F6 


01 


6F0008G9 


038 1 




STX 


L3 


MLSCO 


* 


8100381 


06F8 


01 


670008B2 


382 
0383 


* 


LDX 


L3 


SCSX4 


POINT TO SAVE AREA 


81003820 
81003830 


08FA 





0A2f> 


0384 


SCIN3 


XIO 


2 


SCSN1-TB 


GET CHANNEL STATUS 


81003840 


ObFB 





0300 


0385 




STO 


3 





SAVE 


81003850 


08FC 





0A29 


0386 




XIO 


2 


SCSN3-TB 


GET UNIT STATUS 


81003860 


08FD 





D301 


0387 




STO 


3 


1 


SAVE 


81003870 


06FE 





0A2B 


0388 




XIO 


2 


SCSN4-TB 


GET CCW ADDRESS REG 


81003880 


08FF 





D302 


0389 




STO 


3 


2 


SAVE 


81003890 


0900 





0A2D 


0390 




XIO 


2 


SCSM5-TB 


GET BYTE COUNTER REG 


81003900 


0901 





D303 


039 1 
0392 


* 


STO 


3 


3 


SAVE 


8100391 
81003920 


0902 


00 


66000000 


0393 


SCIN4 


LDX 


L-J 


*-* 


RESET XR2 


81003930 


0904 





1010 


0394 




SLA 




16 


CLEAR INTERRRUPT SW 


81003940 


090 = 





D0F2 


0395 




STO 




SCISW 


** 


81003950 


0906 


01 


4C6008EA 


0396 




BSC 


I 


SCINT 


RETURN 


81003960 








0397 


* 


RETURN HERE ON UNEXPECTED INTERRUPT 


61003970 


0908 


01 


6600087F 


0398 


SCIN5 


LDX 


L2 


TB 




8 100398 


090A 





610C 


0399 




LDX 


1 


12 


SET UP MSG POINTER 


£,1003990 


090O 


01 


670008B5 


0400 




LDX 


L3 


SCSX4+3 


SET UP CSW POINTER 


81004000 



DATE- 
EC NO. 



14N0V69 
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30 JAN70 
431319A 



1SSEP71 
431328 



20N0V72 
431337 



PROG ID 0810-1 

PAGE 4 A 



- ,.»*», - l*4rt*u *«*j| WM.| «MM*| **»«. Sfr^Mlg <«M| «*W*| *MM| «*tt*| MM| MM.U fUMM Mm |^^T'~'1|f M«W *^^ 



o 



ibm maintenance diagnostic program for the 1800 system 
selector channel off-line diagnostic 



PART NO. 2279464 
PAGE S 



SELECTOR CHANNEL 


DI AGNOS1 


'IC/1 800 
















ADDR 


«EL OBJECT 


ST. NO. 


LABEL 


OPCO 


FT 


OPERANDS 








ID/SEQNO 








0401 


* 














8100401 


09 OD 





C300 


0402 


SCIN6 


LD 


3 





GET CHNL STATUS 






81004020 


090E 





42FB 


0403 




BSI 


2 


TCVBE-TB 


CNVRT TO 1443 CODE 






ei004030 


090F 


01 


D500092A 


0404 




STO 


LI 


SCIM2-1 


PUT IN MSG 






81004040 


0911 





18D0 


0405 




XCH 












61004050 


0912 


01 


D500092B 


0406 




STO 


LI 


SCIM2 


* 






81004060 


0914 


L. 


7orF 


0407 




MDX 


3 


-1 


BUMP CSW POINTER 






81004070 


0915 





71FD 


0403 




MDX 


1 


-3 


DECREMENT MSG POINTER 




81004080 


0916 





70F6 


0409 
0410 


* 


MDX 




SCIN6 


LOOP 






81004090 
81004100 


C Jl7 





4204 


0411 




BSI 


2 


TLGMS-TB 


PRINT ERR MESSAGE 






8100411 


0918 


I 


091b 


04 12 




DC 




SCIMS 


* 






81004120 


0919 


00 


4C80012D 


0413 
0414 
0415 


* 
* 


BSC 


I 


START 


GO BACK TO MONITOR 






81004130 
81004140 
81004150 


091b 




00 IE 


04 16 


SCIMS 


DMES 


1 


** ER 00 


UNEXPECTED INTERRUPT 


E 




81004160 


092A 





FFOP 


0417 




DC 




/FFOO 








81004170 


092b 




001A 


0418 


SCIM2 


DMES 


1 


CSW XXXX. 


XXXX, XXXX, XXXX'E 






81004180 


0938 


o 


FFFF 


0419 




DC 




/FFFF 








81004190 








0420 


********** 


***************************************** 


81')04200 








042> 


* 












* 


8100421 








0422 


***** 


***** 


***************************************** 


81004220 








0423 


* 














81004230 


0939 


CO 


4480012C 


0424 


BGIN 


BSI 


I 


BEGIN 


GO TO MONITOR BEGIN 


RTN 




81004240 


93B 


1 


07FF 


0425 




DC 




TPID 


AODRESS OF PID 






81004250 








0426 


********** 


************* 


**************************** 


81004260 








0427 


* 












* 


el004270 








0428 


********************************v****************** 


81004280 


093C 





0000 


0429 


2 I PA 


DC 




*-* 


ENTRY POINT 






81004290 


093D 





CCFE 


0430 




LD 




ZIPA 


MOVE RETURN ADDRS 






81004300 


093E 





DOOE 


0431 




STO 




ZLPA 


* 






810C431 


093F 


CI 


66000U7F 


0432 
0433 


* 


LDX 


L2 


TB 


SET UP POINTER 






81004320 
61004330 


094 1 





1010 


0434 




SLA 




16 


RESET- 






81004340 


094? 





D283 


0435 




STO 


2 


TSWC-TB 


* SW 






81004350 


094 3 


& 


0284 


0436 




STO 


2 


TSK1-T8 


* SW 1 






81004360 


0944 


Oi 


D'»001212 


0437 




sro 




STMPT 


RESET STMLS POINTER 






81004370 


094 6 


01 


D4001480 


0438 




STO 


L 


FRESW 


RESET SC FREED SW 






81004380 


0948 





C2BE 


0439 




LD 


2 


HFFOO-TB 


FETCH CONSTANT 






8 100439 


094 9 





D285 


044 ' 




STO 


2 


TSW2-TB 


PLACE IN SW 2 






81004400 


094A 





C297 


044 1 




LI 


2 


K1-T6 


FETCH CONSTANT OF 1 






8100441 


094 b 





D2E2 


0442 




STO 


2 


PSCNT-TB 


SET PASS C0UNT=1 






81004420 


094C 





7001 


0443 




MDX 




ZLPA+1 


CONTINUE 






81004430 








0444 


********** 


***********************!****************** 


8100444,, 








0445 


* 












* 


81004450 








0446 


********** 


*** 


********** 


ft************************* 


** 


81004460 








0447 


* 














8100447C 


094 D 





0000 


0448 


ZLPA 


DC 




*•-* 


LOOP PGM RTN 






81004480 


094E 


CI 


2C400865 


0449 




STS 


L 


SPROT./40 


CLEAR STORAGE PROT. 


BIT 




81 004490 


0950 


01 


67000981 


0450 




LDX 


L3 


TCNPR 


GET MLSCF ADDRESS 






81004500 



DATE 
EC NO. 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



PART NO. 22 79464 
PAGE SA 



SELECTOR CHANNEL 


DIAGNOSTIC/1800 












ADDR 


REL OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 




IDXSEQNO 


0952 


01 


6F00080B 


0451 




STX 


L3 


MLSC2 


SET IN TBL 


81004510 


0954 


01 


66C00U7F 


0452 




LDX 


L2 


TB 


SET UP TBL POINTER 


8 1004S2 


0956 





C294 


0453 




LD 


2 


TLGED-TB 


LOOK AT LOG EDIT 


81004530 


0957 


01 


4C10095D 


0454 




BNN 




ZLPA1 


BR IF RELEASED 


8 100454 


0959 


00 


44800132 


0455 




BSI 


I 


RELDV 


ELSE RELEASE DEVICE 


8IOO4560 


095B 


1 


0813 


0456 




DC 




TLGED 


ADDR OF EDIT WORD 


81004 56 


095C 


1 


080C 


0457 




DC 




TERM 


TERMINATOR 


8 1004570 


095D 





C295 


0458 


ZLPA1 


LD 


2 


TSCED-Tb 


SEL. CHAN. EDIT 


8100453 


095E 


01 


4C100964 


0459 




BNN 




ZL°A2 




81004590 


0960 


00 


44800132 


0460 




BSI 


I 


RELDV 


RELEASE DEVICE 


8100460 


0962 


1 


0814 


0461 




DC 




TSCED 




8 1 0046 1 


0963 


1 


080C 


0462 




DC 




TERM 




81004 62 


0964 


1 




0463 


ZLPA2 


EOU 




* 




8 1 30A 63 


0^64 





1010 


0464 




SLA 




16 


RESET- 


81OO4M0 


0965 





D2E3 


0465 




STO 


2 


STKSW-TB 


* STACK SW 


8100*65 


0966 





D2DF 


0466 




STO 


2 


SIOSW-TU 


* SIO SW 


8100466 


0967 





D2E1 


0467 




STO 


2 


LGB3Y-TB 


* LOG SW 


81004670 


0968 





C297 


0468 




LD 


2 


Kl-TB 


FETCH CONSTANT OF 1 


8100468 


0969 





D281 


0469 




STO 


2 


TSID-TD 


SET SECTION ID = 1 


8100469 


096A 


01 


4C80094D 


0470 
0471 


* 


BSC 


I 


ZLPA 


EXIT 


810O47O0 

8100471 C 








0472 


***************************************«*****ftftft*ft£ 


810O4 72 








0473 


* 








* 


810O4730 








0474 


*****«****************************#****ft*£*ft#$*** 3tc ft 


81 004 74 


096C 





0000 


0475 


ZEPA 


DC 




*-* 


END PGM RTN 


81304750 


096D 


01 


6600087F 


0476 




LDX 


L2 


TB 


SET UP TABLE POINTER 


8100*76 


096F 


01 


2C400865 


0477 




STS 


L 


SPKOT./40 


CEAR STORAGE PROT. BIT 


61004770 


0971 





C294 


0478 




LD 


2 


TLG>:D-TB 


LOOK AT LOG EDIT 


810047.''0 


097 2 


01 


4C100978 


04 79 




BNN 




ZEFA1 


bR IF RELEASED 


8100479 


0974 


01/ 


44800 132 


0480 




BSI 


I 


RELDV 


ELSE RELEASE DEVICE 


8 100480 


0976 


1 


08 13 


046 1 




DC 




TLGED 


ADDR OF EDIT WORD 


810Q4B1 


0977 


1 


080C 


0482 




DC 




TERM 


TERMINATOR 


8100482 


0978 





C295 


0483 


ZEPA1 


LO 


2 


TSCED-TB 


SEL. CHANNEL EDIT 


8100483 


0979 


o: 


4C10097F 


4(< 4 
0485 


* 


BNN 




ZEPA2 




81OO484 
81O34B50 


97b 


00 


44800132 


0486 




BSI 


I 


RELDV 


RELEASE DEVICE 


8100486 


097D 


1 


0814 


0487 




DC 




TSCED 




81004870 


097E 


1 


oeoc 


0488 




DC 




TERM 




8100488 


097F 


01 


4C80096C 


0489 


ZTPA2 


BSC 


I 


ZEPA 


EXIT BACK TO MONITOR 


810!>489C 








0*90 


*********#*************************************$$$$ 


8100490 








0491 


* 








* 


810O491 








0492 


**************************************************** 


810O4 920 








0493 


* 










ei004930 








0494 


* 


PRE- 


CONTROL ROUTINE 


8100494 








0495 


* 










8100495 








0496 


A************************************************** 


8100496 








0497 


* 








* 


81004970 








0498 


*********¥************************$*************$#* 


8100498 


098 1 


01 


6600087F 


0499 


TCNPR 


LDX 


L2 


TB 


SET UP TABLE POINTER 


81OO499 


0983 





C2E8 


0500 




LD 


2 


T45SW-TB 


GET 43/53 SWITCH 


810O5O0C 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
471319A 



15SEP71 
431328 



20NOV72 
4 3 1 33 7 



PROG ID 
PAGE 



( ( 



a 

• 






© 



081 0-1 
5A 
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PART NO. 2279464 
PAGE 6 



SELECTOR CHANNEL 


DIAGNOSTIC/ 180 












ADDR 


REL OBJECT 


ST. NO. 


LABEL 


O^CD 


FT 


OPERANDS 




ID/SEQNO 


0984 


01 


4C200-J98 


0501 




BNZ 




TCN01 




8100501 


0986 





42F6 


0502 


TCMRO 


B5I 


2 


STMLS-TB 




81005020 


0987 


00 


44800131 


0503 




ciSI 


I 


REQDV 


REGUEST DEVICE 


81005030 


0989 


1 


0986 


0504 




DC 




TCNRO 


BUSY RETURN 


81005040 


098A 


1 


oei3 


0505 




DC 




TLGED 


EDIT FOR PRINTER 


8100505 


098b 


1 


<43C 


0506 




DC 




TLGDA 


AREA CODE GIVEN TACK 


81005060 


098C 


1 


080C 


0507 




DC 




TERM 


TERMINATOR 


81005070 


096D 


00 


44800132 


050t: 




BSI 


I 


Rtl.DV 


RE! EASE DEVICE 


81005080 


098F 


1 


0813 


0509 




DC 




TLGED 


EDIT FOR PRINTER 


81005090 


0990 


1 


080C 


0510 




DC 




TERM 


TERMINATOR 


81005100 


0991 


01 


C400143C 


051 1 




L3 


L 


TLGDA 


GET PRINTER AREA CODE 


8100511 


0993 





F2b7 


0512 




EOR 


2 


H3000-Ti3 




81005120 


0994 





4820 


0513 




SKP 




Z 




61005130 


0995 





C297 


0514 




LD 


2 


K.1-TB 




810061 40 


0996 





8297 


0515 




A 


2 


KI-TB 


ADD ONE 


81005150 


0997 





D2E8 


0516 
0517 


* 


STD 


2 


T45SW-TB 


SET SW FOR 43 OR 53 


81005160 
81005170 


0998 


1 




0518 


TCN0 1 


EOU 




* 




81005160 


0998 





4JF2 


0519 




BSI 


2 


GETDV-TB 


GET OEVICE FOR USE 


81005190 


0999 





42EF 


0520 




BSI 


2 


FREDV-TB 


RELEASE DEVICE 


^1005200 


099A 





C285 


01321 




LD 


2 


TSW2-T6 


GET SW FNC 2 ( CEV -DDR ) 


8100E21 


099B 





1808 


0522 




SRA 




8 


SAVE 6 ITT. 0-7 


8100522 


099C 


01 


4C1809A5 


523 




BZ 




TCN02 


bR IF ZERO 


81005230 


099E 





4204 


0524 




BSI 


2 


TLGMS-Td 


PRINT MESSAGE 


81005240 


099F 


1 


0A06 


0525 
0526 


* 


DC 




TCNE2 


•ENTER OEV ADDI;ESS» 


8100S2S0 
8100S2O0 


09A0 





42F8 


0527 




as I 


2 


STMLS-TB 


GO TO MONITOR 


81006270 


09A1 





C285 


0528 




LD 


2 


_ . SW2-Ta 


GET SW FNC 2 


81006280 


09A2 





1808 


0529 




SRA 




8 


SAVE BITS C-7 


81005290 


09A3 





4820 


0530 




SKP 




/ 


SKIP IF ZERO 


81005300 


09A4 





70Fb 


531 
0532 


* 


MDX 




»-5 


LOOP UNTIL OK 


81 00531 
81006320 


09A5 





C285 


0533 


TCN02 


LD 


2 


TSK2-TB 


GET SW FNC 2 


81005330 


09A6 





D2DE 


0534 




STO 


2 


OVADR-TU 


SET FOR SIO/TIO/SNS 


81005340 


09A7 





42FB 


0535 




SSI 


2 


TCVBE-TB 


CONVERT ADDR TO EflC 


810053SO 


09A8 





1090 


0536 




SLT 




lt> 


TO A 


81005360 


09A9 





D044 


0537 
0538 


* 


STO 




CUU1 1 


STORE FOR PRINT 


81005370 
81005380 


09AA 





C2E2 


539 




LD 


2 


PSCNT-TB 


GET PASS COUNT 


81005390 


09 AS 





42FE 


0- '-0 




BSI 


2 


TCVHD-TH 


CVT TO DECIMAL 


81005400 


09AC 





42FB 


34 1 




BSI 


2 


TCVSE-TB 


CONVERT TO 1443 CODE 


8100541 


09AD 





18D0 


0542 




XCH 






TO A 


8100^420 


09AE 





D044 


0543 




STO 




TTL01+3 


PUT IN MSG 


81005430 


09 AF 





4204 


0544 




BSI 


2 


TLGMS-TB 


PRINT PROGRAM TITLE 


81005440 


09B0 


1 


09E0 


54 5 




DC 




TTLOO 


MSG ADDRESS 


81005450 








0546 


**#* •********#*:********♦**#*****#**********'*******'* 


81005460 








0547 


* 








* 


81005470 








0548 


*!]<*$****»***#****##*#*#***#:»****************<:****** 


81005480 








0549 


* 










8100549 J 








0550 


* 


THIS 


ROUTINE CONTROLS ALL TESTS 


81005500 



DATE 14N0V69 30JAN70 15SEP71 20N0V72 

EC NO. 431319 431319A 431328 431337 



PROG '0 0810-1 
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PART NO. 22 79464 
PAGE 6 A 



o 

o 



SELEC 


TOR CHANNEL 


DIAGNOSTIC/1800 












AOOR 


REL OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 




ID/SEONO 








0551 


* 










81C05510 


09B1 


1 




552 


TCNTE 


EQU 




* 


ENTRY POINT 


81005520 


09B1 


01 


6600087F 


0553 




LDX 


L2 


TB 


SET TABLE ADDRESS 


81005530 


09B3 





C284 


554 




LD 


2 


TSW1-TB 


GET SI* FNC 1 


8100554 


0964 





10CC 


0555 




SLA 




12 


SAVE BITS 12-15 


81005550 


09B5 





180C 


0556 




SRA 




12 


** 


8100E56O 


09B6 





D2C2 


0557 




STO 


2 


TRTNN-TB 


** 


81005570 


09B7 


c 


C2S4 


0558 




LD 


2 


TSW1-T6 


GET SW FNC 1 


81005580 


0SB8 





E2AE 


0559 




AND 


2 


HOOFF-TB 


DROP BAD BITS 


81005590 


09B9 





1884 


0560 




SRT 




4 


SAVE BITS 8-11 


810056CO 


09BA 





D2C1 


0561 




STO 


2 


TSCTN-TB 


SAVE SECTION NUMBER 


81005610 


09BB 


01 


4C2009CE 


0562 




BNZ 




TCN04 


BR IF NOT ZERO 


81005620 


09tiD 





1090 


0563 




SLT 




16 


GET BACK BITS 12-15 


81005630 


09BE 





180C 


564 




SRA 




12 


SAVE THEM 


8 IOC 564 


09BF 


01 


4C2009D2 


0565 
0566 


* 


BNZ 




TCNER 


ERR. NO SECTION SPCCIFIFD 


81005650 
81005660 


09C1 


01 


6560O800 


0567 


TCN0 3 


LDX 


I 1 


TSID 


GET SECTION NUMBER 


81005670 


09C3 


01 


C50009DB 


0568 




LD 


LI 


TCNTA 


GET SECT. PREFACE ADDRESS 


81005680 


09C5 





D282 


0569 




STO 


2 


TSAD-TB 


STORE IN SEC ADDRS 


81005690 


09C6 





loio 


0570 




SLA 




16 


CLEAR ERROR COUNTER 


8I00S700 


09C7 





D2C3 


0571 




STO 


2 


TCNSW-TB 


*** 


81005710 


09C8 





C296 


0572 




STO 


2 


TRID-TB 


CLEAR RTN ID TO ZERO 


81005720 


09C9 





C281 


0573 




LD 


2 


TSID-TB 


INCREMENT SECTION 


81005730 


09CA 





8297 


0574 




A 


2 


Kl-TB 


* 


81005740 


09CB 





D231 


0575 




STO 


2 


TSID-TB 


* 


81005750 


09CC 


01 


4C600801 


0576 
0577 


a 


BSC 


I 


TSAD 


GO TO SECTION PREFACE 


81005760 
81005770 


09C.E 





D281 


0578 


TCN04 


STC 


2 


TSID-TB 


STORE SECT. NUMBER 


8100L 790 


09CF 





900B 


0579 




S 




TCNTA 


SUB. NUMBER OF SECTIONS 


81005790 


0900 


01 


4C2809C1 


0580 
058 1 


* 


BN 




TCN03 


BR IF OK 


81005800 
81005810 


09D2 





C284 


0582 


TCNER 


LD 


2 


TSW1-TB 


GET SW FNC 1 


81005820 


0903 





42FB 


0583 




BSI 


2 


TCVBE-TB 


CONVERT HEX TO PRNT CODE 


81005830 


09D4 





0020 


584 




STO 




TTLER+11 


PUT INVALID SWITCH 


81005640 


09D5 





1090 


0585 




SLT 




16 


» SETTING INTO MESSAGE 


81005850 


09D6 





D02C 


0586 




STO 




TTLER+12 


* 


8100586 


09D7 





4204 


0587 




BSI 


2 


TLGMS-TB 




61005870 


09D3 


1 


09F7 


0588 




DC 




TTLER 




81005880 


0909 





4201 


0589 




BSI 


2 


THALT-TB 




81005890 


09DA 





4k;E9 


0590 
0591 


* 


bs: 


2 


CNTRL-TB 


GO TO RETRY RTN SELCT 


81005900 
81005010 


09D8 





0005 


0592 


TCNTA 


DC 




TCNTZ-TCNTA LENGTH OF TBL + 1 


8100592 


09DC 


1 


0A16 


0593 




DC 




T10NT 


SECTION ADDRESS 


81005930 


900 


1 


0C9B 


594 




DC 




T20NT 


SECTION ADDRESS 


81005940 


09DE 


1 


0E92 


0595 




DC 




T30NT 


SECTION ADDRESS 


81005950 


09DF 


1 


0FD4 


0596 




DC 




T40NT 


SECTION ADDRESS 


81005960 


09E0 


1 




0597 


TCNTZ 


EQU 




* 


END OF TABLE 


81005970 








0598 


t*»t«<i(tttf»S 


»******»****.****************»*#******* 


81005980 








0599 


# 








* 


eioosg^o 








0600 


#**»***»***¥*»****»«»***#*****»»*****»************* 


81006000 



DATE 

EC NO. 



14 NOV 69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



20NOV72 
431337 



PROG ID 
PAGE 



0810-1 
6A 
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PART NO. 2279*64 
PAGE 7 



SELECTOR 


CHANNEL 


DIAGNOSTIC/1800 












ADDR 


REL 


OejECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 




ID/SEQNO 


09E0 




001C 


060 1 


TTLOO 


DMES 


1 


SC DIAGNOSTIC TEST ON UNIT 'E 


8100601 


09EE 




0002 


0602 


CUU11 


DMES 


1 


•E 




81006020 


09EF 





FFOO 


0603 




DC 




/FFOO 




81006030 


09FO 




0009 


0604 


TTL01 


DMES 


1 


PASS- XX 


•E 


81006040 


09F3 





FFOO 


0605 




OC 




/FFOO 


TERMINATOR 


81006050 


09F». 





FFFF 


0606 




DC 




/FFFF 




81006060 


09F7 




001A 


0607 


TTLER 


DMES 


1 


**ER INV 


LD SWS FNC I XXXX'E 


81006070 


0A04 





OOFF 


0608 




DC 




/OOFF 




81006080 


DA05 





FFFF 


0609 




DC 




/FFFF 




81006C90 


0A06 




0017 


0610 


TCNE2 


DMES 


1 


****SELECT DPT I ONS**** ■ E 


81006100 


0A12 





FFOO 


061 1 




DC 




/FFOO 




810061 . 


0A13 





FFFF 


0612 




DC 




/FFFF 




81006120 








0613 


****»»**»»»**»*********»»»***»***♦**»*»****»»****»* 


81006130 








0614 


* 








* 


81006140 








0615 


** v **#»**«*»*************************************** 


81006150 








0616 


* 










810061 60 








0617 


* 


ACTION 


PREF/CE 




81006170 








0618 


* 










81006180 


0AI4 


'„ 


00C1 


0619 


T10PR 


DC 




/0001 


SECTION NUMBER 


81006190 


0A15 





0009 


0620 
0621 


* 


DC 




9 




81006200 
8100621 


0A16 





C2C2 


0622 


T10NT 


LD 


2 


TRTNN-TB 


SW FNC I BITS 12-15 


810. 6?20 


0A17 


01 


4C180A1E 


0623 




BZ 




T1101 


BR IF RUN ALL RTNS 


61006230 


0A19 





90FB 


0624 




S 




T10PR+1 


TEST FDR VALID 


81006240 


0A1A 


01 


4C3009D2 


0625 




DP 




TCNER 


BR IF INVALID RTN NUMBER 


81006250 


0A1C 





80F8 


0626 




A 




T10PR+1 


RESTURLt RTN NUMBER 


810062o0 


0A1D 





7000 


0627 




MDX 




Tl 1 01 


GO TO F IRST RTN 


8100627C 








0628 


»**f*(SvSt 


^^V«««#««*444 4««4*««****««**4»4*******««* 


81006280 








0629 


* 








* 


81006290 








06.0 


•*******«* 


*»**♦*#*#***##*#************************ 


81006300 








0631 


* 










8100631 








0632 


t»}t > «t;(*»«»»t»tt««t*»t»t»«t*t»t*»ttt*>tt««(»«tt* 


81006320 








0633 


* 








* 


81006330 








0634 


****»*««** 


*S***#*I<- «*****#***#***»***♦****:********** 


81006340 


OAH 


1 




0635 


T1101 


EOU 




* 


TEST ENTRY POINT 


81006350 


0A1L 


01 


7401 OB 15 


0636 




MDX 


L 


TRID.l 


BUMP RTN ID 


81006360 


0A2P 


01 


4C180A2S 


0637 




az 




Tl 102 


BR IF TEST NUMBER ZERO 


81006370 


0A22 





9297 


0638 




s 


2 


Kl-TB 


DECREMENT BY ONE 


81006380 


0A23 


01 


4C200A65 


0639 
0640 


w 


BNZ 




T1201 


BR IF NOT THIS TEST 


81 006390 
81006400 


0A25 





C283 , 


064 1 


Tl 102 


LO 


2 


TSWO-TB 


SET OPTION SWS 


8100641 


0A26 





100A ' 


0642 




SLA 




CTTLE 


PRINT TITLES 


31006420 


0A27 


01 


4C100A2B 


0643 




BNN 




T1103 


L1R IF NOT SET 


8100643 


0A29 





4204 


0644 




BSI 


2 


TLGMS-TB 


GO TO PRINT ROUTINE 


81006440 


0A2A 


1 


0A49 


0645 




DC 




TTL11 


MESSAGE ADDRESS 


61006450 


0A2B 





42F8 


0646 
0647 


T1103 
* 


BSI 


2 


STMLS-TB 


GO TO MONITOR 


81006460 
81006470 


0A2C 





C2A1 


0648 




LO 


2 


K100-TB 


SET UP LOOP COUNT 


810O64C0 


0A2D 





D2E7 


0649 




STO 


2 


LPCN T -TB 


** 


81C06490 


0A2E 





42F2 


065C 




BSI 


2 


GETDV-TB 


GET DEVICE FOR ROUTINE 


81006500 



DATE 
EC NO. 



I4N0V69 
431319 



30JAN70 
431319A 



15SEP7I 
431320 



2 0N0V72 
431337 



PROG 
PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1600 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL 
ADDR REL OBJECT 



0A2F 





1010 


0A3 





D269 


0A31 





0A25 


0A32 





0223 


0A33 





D22F 


0A34 





0A29 


0A35 





D230 


0A36 





0A2B 


0A37 





D231 


0A38 





0A2D 


0A39 





D232 



0A3A C283 

0A3B 1008 

0A3C 01 4C280A31 

0A3E C223 

0A3F 01 4C200A57 



0A4 1 01 74FF0866 

0A43 70ED 

0A44 42EF 

0A4S C2t2 

0A46 01 4C180A65 

0A48 42E9 

0A49 OOOE 

0A50 OOOC 

0A56 FFFF 

0A57 01 65000463 

0A59 01 67000A5D 

0A5t> 01 4C0010AE 

0A5D 1 06A4 



DI AGNOSTI 
ST. NO. 
0651 
0652 
0653 
0654 
0655 
0656 
0657 
0658 
0659 
0660 
0661 
0662 
0663 
0664 
0665 
0666 
0667 
0663 
0669 
0670 
0671 
0672 
0673 
0674 
0675 
0676 
0677 
0678 
0679 
OtfcO 
068 1 
0682 
0683 
06c»4 
0685 
0686 
0637 
688 
0689 
0690 
0691 
0692 
0693 
0694 
0695 
0696 
0697 
0698 
0699 
0700 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



C/1800 
LABEL OPCD FT OPERANDS 

« 

♦is************************************************ 
■» * 

»**V********* ********************** **************** 

* 

* STATUS CHECK TEST 

* 

*s**** tit**************?-**************************** 

* * 
*tt********** ************************************** 



SLA 
STO 

* 

T1104 XIO 
STO 
STO 
XIO 
STO 
XIO 
STO 
XIO 
STO 

* 

LD 

SLA 

BN 

* 

LD 
BNZ 



16 
2 SCISW-TB 

2 SCSN1-TB 

2 SCSNO--TB 

2 SCSXO-TB 

2 SCSN3-TB 

2 SCSXO+l-TB 

2 SCSN4-TB 

2 SCSX0+2-TB 

2 SCSN5-TB 

2 SCSX0+3-TB 

2 TSWO-TB 
OLPST 
Til 04 

2 SCSNO- T B 
Til 05 



CLEAR INT. EXPECTED SW 

* 

GET CHAN STATUS 

SAVE FOR LATER CHECK 

SAVE FOR POSSIBLE MSG 

GET UNIT STATUS 

SAVE 

GET CSW ADDR REG 

SAVE FOR MSG 

GET BYTE COUNTER 

SAVE FOR MSG 

GET OPTION SWITCHES 

BR IF LOOP START I/O 

GET CHAN STATUS 
BR IF NONZERO 



GO TO NEXT ROUTINE IN SEQUENCE 



MDX 
MDX 

* 

THEN BSI 
LD 
BZ 
BSI 



L LPCNT.-l 
T1104 

2 FREDV-TB 
2 TRTNN-TB 

T1201 
2 CNTRL-TB 



COUNT LOOPS 
LOOP 

FREE DEVICE 
GET RTN NUMBER 

GO TO NEXT RTN IN SEQ 
GO TO CONTROL RTN 



TTL11 DMES 1 SECT l.RT 1- •£ 
DMES I STATUS CHECK >E 
DC /FFFF 



T1105 LDX LI CSW11 
LDX L3 T1106 
ESC L SI0N2 



SET EXPECTED CSW 

SET LIST ADDRESS 

GO PRINT ERhiOR MSG 



Tl 106 DC 



SCSN1 



15SEP71 
431328 



20NOV7<i 
431337 



PART NO. 2279*£4 
PAGE 7 A 



I0/SEQNO 
3100651 O 
8100652 O 
81006530 
8100654 O 
P1006S50 
el006560 
81006570 
81C06580 
81006590 
81006600 
81006610 
81006620 
81006630 
8100664 O 
81C066E0 
81006660 
81006670 
81006680 
81006690 
81006700 
8100671 O 
8 100672 O 
81006730 
81006740 
81006750 
81006760 
81C06770 
81006780 
61006790 
81006800 
810C681 
8100682 
81006830 
81006640 
81006850 
81006860 
81006870 
81006680 
81006890 
81006900 
8100691 O 
8100692 O 
81006930 
81006940 
81006950 
8 1006'. 6 
81006970 
81006980 
810069 JO 
81 10700 O 
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PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



PART NO. 2279464 
PAGE 8 



SELECTOR CHANNEL 


DIAGNOSTIC/1800 














ADOR 


REL OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 






ID/SEONO 








0701 


* 


RETURN HERE FROM 


SIO ROUTINE 




8100701 


OASE 





C293 


0702 




LD 


2 


TSWO-TB 


GET OPTION SWITCHCS 




81007020 


OA'JF 





100C 


0703 




SLA 




OLPER 


TEST FOR LOOP ON ERROR 




81007030 


0A60 


01 


4C280A31 


0704 




BN 




Tl 104 


LOOP IF SET 




81007040 


0A62 





70E1 


0705 
0706 


* 


MDX 




THEN 


ELSE END ROUTINE 




8100705 
81007060 


0A62 





^000 


0707 


CSW11 


DC 




/OOOO 


EXPECTED CHANNEL STATUS 




81007070 


0A64 





7000 


07 08 




DC 




BYPUS+BYPAO+BYPBC CK ONLY CHAN STAT 


81007080 








0709 


» 












ei007090 








0710 


* 












81007100 








0711 


*******»**»»»¥* **»***j*****»*******«»»**»*»»**a**** 


810071 1 








0712 


* 










* 


81007120 








0713 


«*»**»««»«**3*«*«**»<«9****?S**?*«*«<:«SSS»**«»***»* 


81007130 


0A65 


1 




0714 


T1201 


EQU 




* 


TEST ENTRY POINT 




81007140 


0A6S 


01 


74010815 


0715 




MDX 


L 


TRID.l 


BUMP RTN ID 




81007150 


0A67 


01 


4C180A6C 


07 16 




bZ 




T1202 


BR IF TEST NUMBER ZERO 




81007160 


0A69 





9297 


0717 




s 


2 


Kl-TB 


DECREMENT BY ONE 




S100717C 


0A6A 


01 


4C200AC1 


0718 
0719 


* 


BNZ 




T1301 


BR IF NOT THIS TEST 




E1007180 
81007190 


0A6C 





C<-83 


0720 


T12C2 


LD 


2 


TSWO-TB 


GET OPTION S'aS 




81007200 


0A6D 





100A 


0''21 




SLA 




OTTLE 


PRINT TITLES 




el007tl 


0A6E 


01 


4C100A72 


0722 




BNN 




T1203 


bR IF NOT SLT 




310072C ■• 


0A70 





4204 


0723 




bSI 


2 


TLGMS-TB 


GO TO PRINT ROUTINE 




8100723u 


0A71 


1 


0AA3 


0724 




DC 




TTL12 


MESSAGE ADDRESS 




B10O /2 4 


0A72 





4 2F8 


0725 
0726 


T1203 

* 


BSI 


2 


STMLS-TD 


GO TO MONITOR 




8 10072L 
81007260 


0A7; 





C2A1 


0727 




LD 


2 


K100-TB 


SET UP LOOP COUNT 




81007270 


0A74 





02E7 


0728 




STO 


2 


LPCNT-Tt; 


fc* 




81007280 


0A75 





42F2 


0729 
0730 


* 


BSI 


L 


GcTDV-Tb 


GET DEVICE FOR ROUTINE 




81007290 
8100730 J 








0731 


«*****##*#****»*»**#**#*♦**«****»******■********#*** 


81 00731 C 








0732 


* 










* 


81007320 








0733 


* 


PROGRAM 


CHtCK TEST 


* 


81007330 








0734 


* 










* 


81007340 








0735 


#tfvt«««s9f«tvttFet«ttv*««s«»«v*ia*t**4«»«tt»«*»«t* 


81007350 


0A76 





C26A 


0736 




LD 


2 


TSCAC-Tb 


G^T AREA CODE AND 




81007360 


0A77 





EADE 


0737 




OR 


2 


DVACR-Tb 


t UNIT ADDRS 




81007370 


0A78 





003C 


0738 




STO 




Ti2Il+! 


bUILD IOCC. F=0 




B1O07380 


0A79 





82AF 


C739 




A 


2 


H0100-TH 






"1007390 


0A7A 





D03C 


7 40 




STO 




T12I2+1 


F = l 




81007400 


0A7b 





62AF 


0' *l 




A 


2 


HOlOO-Tb 






8100741 


0A7C 





D03C 


0V42 




STO 




T12I3+1 


F=2 




81007420 


0A7D 





82B1 


0743 




A 


2 


H0400-TB 






81007430 


0A7E 





D03C 


0744 
0745 


* 


STO 




T12I4+1 


F=6 




81007'40 
81007450 


0A7F 





42F5 


0746 


T1204 


US I 


2 


S10-TB 


DO SIO 




81007460 


OA80 


1 


0AB4 


0747 




DC 




T12I1 






81007470 


0A81 


1 


OABF 


0748 




DC 




CSW12 






81007',80 


0A82 


1 


0A84 


0749 




DC 




*+l 


ERROR RETURN 




81007490 


0A83 





7002 


0750 




MDX 




* + 2 


ELSE TRY NEXT IOCC 




81007500 



DATE 
EC NO. 



14NOV69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



20NOV72 
431337 
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PAGE 



08 1 0-1 

8 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL 


DIAGNOSTIC/1800 








ADOR 


REL OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 








0751 


* 








0A84 


01 


6C000e42 


0752 
0753 


» 


STX 


L 


TCNSW 


0A86 





42F5 


754 




BSI 


2 


SIO-TB 


0A87 


1 


0AB6 


0755 




DC 




T12I2 


CA88 


1 


OABF 


0756 




DC 




CSW12 


0A89 


1 


0A8B 


0757 




DC 




*+l 


0A8A 





7002 


0758 
0759 


* 


MDX 




*+2 


CA8B 


01 


6C000842 


0760 
0761 


* 


STX 


L 


TCNSW 


0A8D 





42F5 


0762 




BSI 


2 


SIO-TB 


0A8E 


1 


0AB8 


0763 




DC 




T12I3 


0A8F 


1 


OABF 


0764 




DC 




CSW12 


0A90 


1 


0A92 


0765 




DC 




*+l 


0A91 





7002 


0766 
0767 


• 


MDX 




»+2 


0A92 


01 


6C000842 


0768 
0769 


* 


STX 


L 


TCNSH 


0A94 





42F5 


0770 




BSI 


2 


SIO-TB 


0A95 


1 


0A3A 


0771 




DC 




T12I4 


0A96 


1 


OABF 


0772 




DC 




CSW12 


0A97 


1 


0A9E 


0773 




DC 




T12EN 


0A98 





C2C3 


774 




LD 


2 


TCNSW-TB 


0A99 


01 


4C200A9E 


0775 
0776 
0777 


* 
* 


BNZ 




T12EN 








0778 


* 


GO TO NEXT ROUT 1 








0779 


* 








0A9B 


01 


74FF0866 


0730 




MDX 


L 


LPCNT.-i 


0A9D 





70E1 


0781 
0782 


* 


MDX 




T1204 


0A9E 





42EF 


0733. 


T12EN 


BSI 


P 


FREDV-TB 


0A9F 





C2C2 


784 




LD 


2 


TRTNN-TB 


OAAO 


01 


4C180AC1 


0785 




BZ 




T1301 


0AA2 





42E9 


0786 
0787 


* 


BSI 


2 


CNTRL-TB 


0AA3 




OOOE 


0788 


TTL12 


DMES 


1 


SECT 1 , 


OAAA 




00 12 


0789 




DMES 


1 


PROGRAM 


0AB3 





FFFF 


790 
0791 


* 


DC 




/FFFF 


0AB4 




0000 


0792 




BSS 


E 





0AB4 


1 


OABC 


0793 


T12I 1 


DC 




CCW12 


0AB5 





OOOC 


794 
0795 


* 


DC 




*-* 


0AB6 


1 


OABC 


0796 


T12I2 


DC 




CCW12 


0AB7 





0000 


0797 
798 


* 


DC 




*-* 


0AB3 


1 


OABC 


0799 


T12I3 


DC 




CCW12 


0AB9 





0000 


0800 




DC 




*— * 



SET ERROR SW 



COUNT LOOPS 
LOOP 

FREE DEVICE 
GET RTN NUMBER 

GO TO NEXT RTN IN 
GO TO CONTROL RTN 



DATE 
EC NO. 



14N0V69 
431319 



30 JAN70 
431319A 



15SEP71 
431328 



20NOV72 
43133 7 



PART NO. 2279464 
PAGE 8A 



ID/3EQN0 
81007510 
81007S20 
81007530 
81007540 
81007550 
81007560 
81007570 
81007580 
81007590 
81007600 
81007610 
8100762 O 
81007630 
8100764 
8100 7650 
8100766 
81007670 
81007680 
81007690 
81007700 
81007710 
81007720 
81007730 
8100774 
81007750 
81007760 
81007770 
81007780 
81007/90 
81007800 
8100781 n 
8100782 
81007830 
81007840 
81007850 
81007860 
81007870 
81007880 
81007890 
81007900 
81007910 
81007<<20 
81007930 
8100794 O 
81007950 
81007960 
81007970 
81007980 
81007990 
8100bOr 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE leOO SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 






9 

9 



SELECTOR CHANNEL 
ADDR REL OBJECT 



DIAGNOSTIC/1800 
ST. NO. LABEL OPCD FT OPERANDS 



OABA 


1 


OABC 


OABB 





OOOO 


OABC 





t. 01 


OABD 





0003 


OABE 





0000 


OABF 





1000 


OACO 





7000 



0AC1 1 

0AC1 01 74ClOdlS 

0AC3 1 4C.80AC8 

0AC5 O 9297 

0AC6 01 4C200U07 



OAce 





C283 


0AC9 





100A 


OACA 


01 


4C10 


OACC 





4204 


OACO 


1 


OAEA 


OACE 





42F8 


OACF 





C2A1 


OADO 





D2E7 


0AD1 





42F2 



0AD2 C831 
0AD3 00 DCOOFFFC 



0AD5 61FC 
0AD6 01 6DC008A0 



0801 
0802 
0803 
0804 
0805 
08 06 
0807 
0808 
0809 
08 10 
081 1 
08 12 
0813 
08 14 
0815 
08 16 
0817 
08 18 
0819 
08 ?0 
0821 
0822 
0823 
0824 
0825 
0826 

^oe27 

^08 28 

0829 
, 0830 
' 0631 

0832 
.0833 
M)834 

0835 
-0836 
V0837 

08 38 
-0839 
V06< J 

0841 
-0842 

* 0843 
0844 
0845 

* 0846 
0847 
0848 
0849 
0850 



DATE 
FC NO. 



14N0V69 
431319 



30JAN70 
431319A 



T12I4 OC 
DC 



CCW12 DC 
DC 
DC 



CSW12 DC 
DC 



CCW12 

*-* 



1 BYTE COUNT 

0*256+OPNOP FLAGS AND OP CODE 
O ADDKESS 



/1000 PROGRAM CHECK 

*-*+BYPUS+BYPBC+BYPAD CK ONLY CS 



**.*** ******* ************************* ************** 
* * 

*************************************************** 



T1301 ECU 
MDX 
6Z 
S 
BNZ 

* 

T1302 LD 
SLA 

enn 

BSI 
DC 

T1303 BSI 

* 

LD 

STO 

BSI 



. TRID.l 
T1302 
2 Kl-TU 
T1401 

2 TSWO-TB 

OTTLE 

T1303 
2 TLGMS-TB 

TTL13 
2 STMLS-TB 

2 K100-TB 
2 LPOIT-TL' 
2 GETDV-TU 



TEST ENTRY POINT 
BUMP RTN ID 

BR IF TEST MUMPER ZCRO 
DECREMENT BY ONE 
!3R IF N'JT THIS TEST 

GFT OPTION SWS 
PRINT TITLES 

BR IF NOT SET 
GO TO PRINT HUOTINE 
MESSAGE ADDRESS 

GO TO MONITOR 

SET UP LOOP COUNT 

** 

GET DEVICE FOR ROUTINE 



* * 
*******$****a#****************##******4-************ 
* 

* CC* ADDRS REGISTER 
* 
***#**»****v*************************************** 

* * 
******************************<**#:/**#********#*** + * 

LDD CCW13 GET CCW ADDRS 

STD L /FFFC PUT IN HI CORE 



T1304 LCX 1 -4 

STX LI SICJXX 



TEST FOR BITS OFF 



POINT TC C".W 



PART NO. 2279464 
PAGE 9 



ID/SEQNO 
8100301 
81008020 
81008030 
81008040 
81008050 
81008060 
81008070 
81003080 
81008090 
81008100 
810081 1 
810C8120 
81008130 
81008140 

eioosiso 

81008160 
C1008170 
£,100Bli<0 
81006190 
S100&2P0 
S100r>21 O 
8100»1220 
8100823 
81008240 
8 IOC 325 
81008260 
81 008270 
H100K280 
H100H29C 
8100B300 
81 00831 
81000320 
1100033 
81008340 
81008350 
81008360 
81008370 
810063P0 
61 008390 
01008400 
8100841 
81008*20 
810084.1 
81008440 
81008450 
81008460 
81 008470 
81C08480 
8100849G 
81008000 



15SEP71 
431326 



2CNOV72 
431337 



PROG 
PAGE 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL 
ADDR REL OBJECT 
42F5 



0AD8 

0AD9 1 

CADA 1 

OADB 1 



08A0 
OAFC 
0AE5 



OADC 01 740108A0 



OADE 42F5 

OADF 1 08A0 

OAEO 1 OBOO 

0AE1 1 0AE5 



0AE2 01 74FF0866 

0AE4 70F0 

0AE5 42EF 

0AE6 C2C2 

0AE7 01 4C180B07 

0AE9 42E9 

OAEA OOOE 

0AF1 0014 

OAFB FFFF 



OAFC 0000 

OAFD DOOO 

OAFE O FFFF 

OAFF 0000 

OBOO 0000 

0B01 DOOO 

0B02 0000 

0B03 0000 



0B04 0003 
CB05 0003 
0B06 0000 



0B07 1 



DI AGNOSTI 
ST. NO. 
0851 
0352 
0853 
0854 
0BS5 
0856 
0857 
0858 
0859 
0560 
086! 
0862 
0863 
0864 
0865 
0866 
0867 
0868 
0869 
0870 
0871 
0872 
0873 
0874 
0875 
0676 
0877 
0878 
0679 
0880 
068 1 
0882 
0883 
0884 
0885 
0886 
0887 
0888 
0889 
0890 
0891 
0892 
0893 
0894 
0895 
0896 
0897 
0898 
0899 
0900 



C/1800 
LABEL 



DATE 
EC NO. 



14N0V69 
431319 



30 JAN70 
'■31319A 



OPCD FT OPERANDS 
BSI 2 SIO-TB 
DC SIOXX 
DC CSW13 
DC T13EN 

MUX L SIOXX, 1 

TEST FOR BITS ON 

BSI 2 SIO-TB 
DC SIOXX 
DC CSW13+4 
DC T13EN- 



GO 00 SIO 
IOCC ADDRS 
EXPECTED CSW 
ERROR RETURN 

BUMP IOCC ADDRS 



GO DO SIO 
IOCC ADDRS 
EXPECTED CSW 
ERROR RETURN 



GO TO NEXT ROUTINE IN SEQUENCE 



MDX L LPCNT.-l 

MDX T1304 

* 

T13EN BST 2 F-1EDV-TB 

LD 2 TRTNN-TB 

BZ T1401 

BSI 2 CNTRL-TH 



COUNT LOOPS 
LOOP 

FREE DEVICE 
GET RTN NUMBER 

G(J TO NEXT RTN IN SEQ 
GO TO CONTROL R f N 



TTL13 



* 
CSW13 



DMES 1 SECT l.RT 3- 'E 

DMES 1 CCW AHDRESS REGISTER •£ 

DC /FFFF 



DATA AND CONS TANTS 
CSW EXP FROM 'TtS - 



DC 

DC 

DC 

DC 

CSW 

DC 

DC 

DC 

DC 



/DOOO 
/FFFF 
*-* 
EXP FROM 
*-* 
/DOOO 
/OOOO 
*-* 



BITS OFF* 
CH STS NOT CHECKED 
UN STS NOT CHECKED 
EXP CSW ADDRS REG 
BYTE CNT NOT CHEKED 
•TEST BITS ON' 



EXP CSW ADDRS REG 



CCW13 DC OPNOP BYTE COUNT 

DC 0*256+OPNOP FLAGS AND OP CODE 
DC ADDRESS 

* 

*************************************************** 



***** 
T1401 



********************************************„•* 
EQU * TETT ENTRY POINT 



PART NO. 2279464 
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IO/ScONO 
8I008S1 O 
81(00852 O 
81O08530 
8X008540 
81O03550 
81O08560 
81008570 
8100858 
81008590 
8 tOO 860 
8JO0861 
81 CO 862 
8*008630 
81OO864 
61O08650 
8100 866 
81O08670 
8H30868 
81308690 
81O06700 
81O0B71 O 
8100872 O 
8 1O0873 
8100874 O 
S»tO08750 
8 1OO876 
8IOOS770 
6100878 
aiO08790 
S1OO880 
81O0881 
81O0882 
313O8830 
8100884 
81Q08850 

aiooaaa o 

81008870 
B1OO8880 
B1OO3390 
81OO8900 
81O08910 
8l0089i 
81308930 
81O08940 
8IO08950 
81O03960 
81008970 
81O0898 
81O08990 
8100900 ) 



15SEP71 
431328 



20N0V72 
431337 



PROG I D 
PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL 
AODR REL OBJECT 
0B07 01 74010815 
0B09 01 4C180B0E 
OBOB O 9297 
OBOC 01 4C20083B 



C283 
1O0A 

0810 01 4C100B14 

0B12 4204 
0B28 
42F8 



OBOE 
OBOF 



OB 13 1 
0B14 O 



0B15 C2A1 
OB 16 O D2E7 
0B17 O 42F2 



0B18 01 65000B33 

0B1A 01 O0008A0 

0B1C 42FS 

0B1D 1 08A0 

0B1E 1 0B34 

0B1F 1 0B23 



0B2O 01 74FFC666 

0B22 70F6 

0B23 42EF 

0B24 C2C2 

0B25 01 4C180B3B 

0B27 O 42E9 

0B28 OOOE 

0B2F 0008 

0B33 O FFFF 



DI AGNOSTI 
ST. NO. 
0901 
0902 
0903 
0904 
0905 
0906 
0907 
0908 
0909 
0910 
0911 
0912 
0913 
0914 
0915 
0916 
0917 
0918 
0919 
0920 
0921 
0922 
0923 
0924 
0925 
0926 
0927 
0928 
0929 
0930 
0931 
00 32 
0933 
0934 
0935 
0936 
0937 
0938 
0939 
0940 
0941 
0942 
094 
0944 
09 i 5 
0946 
0947 
0948 
0949 
0950 



• t 



DATE 
EC NO. 



14NOV69 
431319 



30JAN70 
431319A 



C/1800 
LABEL OPCO FT OPERANDS 
MDX L TRIO.l 



BZ 

S 

BNZ 

* 

T1402 LD 
SLA 
BNN 
BSI 
DC 

T1403 BSI 

* 

LO 

STO 

BSI 



T1402 

2 Kl-TB 

T1501 

2 TSWO-TB 

OTTLE 

T1403 
2 TLGMS-TB 

7TL14 
2 STMLS-TB 

2 K100-TB 
2 LPCNT-Tb 
2 GCTDV-TB 



BUMP RTN :o 

BR IF TEST NUMBER ZERO 
DECREMENT BY ONE 
BR IF NOT THIS TEST 

GET OPT i ON SWS 
PRINT TITLES 

BR IF NOT SET 
GO TO P1INT ROUTINE 
MESSAGE ADDRESS 

GO TO MONITOR 

SET UP LOOP COUNT 

«• 

GET DEVICE FOR ROUTINE 



3*3****3*$«*»*«£*«*»*»*****t*»********************* 

* * 

* 

* TEST I/O ROUTINE 

« t 

****** «**«*«*******«***« a*,f ******* ********* ******** 



T1404 LDX LI CCW14 
STX LI SIOXX 



GET CCJl ADDRS 

* AND PUT IN IOCC 



asi 


2 SI0-T8 


GO DO SIO 


)C 


SIOXX 


IOCC ADDRS 


DC 


CSW14 


EXPECTED CSX 


DC 


T14EN 


ERROrl RcTURN 



GO TO NEXT ROUTINE IN SEQUENCE 



MDX L ^"CNT.-l 
MDX T1404 



T14EN bSI 
LD 
BZ 
BSI 



2 FPEDV-TB 
2 TRTNN-TB 

T1501 
2 CNTRL-TU 



COUNT LOOPS 
LOOP 

FREE DEVICE 
GET RTN NUMBER 

GU TO NZXT RTN IN SEQ 
GO TO CONTROL RTN 



TTL14 DMES 1 SECT l.RT 4- • E£ 
DMES 1 TEST 1/0»E 
DC /FFFF 

* 

* DATA AND CONSTANTS 



PART NO. 2279464 
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ID/SEQNO 
8100901 
61009020 
81009030 
81009040 
81009050 
81009060 
81009070 
81009080 
81009090 
81009100 
8100911 
81009120 
61009130 
81009140 
81009150 
81009160 
8i009170 
81009180 
8100Q190 
81009200 
81 009^1 
81009220 
81009230 
8 IOC 92 4 
81U092S0 
el00926l , 
81009270 
810092dO 
81009290 
81009300 
8100931 
610093.'0 
81009330 
P1001340 
81009350 
81009360 
81009370 
61009380 
81009390 
81009400 
8100941 
81009420 
S100'<43 
U1009440 
81009450 
81009460 
81T09470 
81009480 
81009490 
81009500 



1SSEP71 
431328 



20NOV72 
431337 



PROG 
PAGE 



081 0-1 
10 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL 
ADDR REL OBJECT 

0B34 4000 

0B35 0000 

0B36 1 0B3B 

0B37 0000 



0B38 O 000 1 
0B39 O 0000 
0U3A 0000 



0B3B 1 

0B3B 01 74010815 

0B3D 01 4C180B42 

0B3F 9297 

OB40 01 4C200B6E 

0B«2 C283 

0B43 O 100A 

0B44 01 4C100B48 

0B46 4204 

084 7 1 0B5C 

0B48 42F8 

0B49 C2A1 

0B4A O D2E7 

0B4B O 42F2 



DIAGNOSTIC/1800 
ST. NO. LABEL OPCD FT OPERANDS 



CB4C 01 65000B67 

0B4E 01 6D0008A0 

0B50 42F5 

0B51 1 06A0 

0B52 1 0B6A 

0B53 1 0B57 



0951 
0952 
0953 
0954 
0955 
0956 
0957 
0958 
0959 
0960 
C961 
0962 
0962 
0964 
0965 
0966 
0967 
0968 
0969 
0970 
0971 
0972 
0973 
0974 
0975 
0976 
0977 
0978 
0979 
0980 
0951 
0982 
0983 
0984 
0985 
0986 
098 7 
0986 
0989 
0990 
0991 
0992 
0993 
0994 
0995 
0996 
0997 
998 
0999 
1000 



DATE 
EC NO. 



14N0V69 
431319 



30 JAN70 
431319A 



CSW14 DC 
DC 

DC 
DC 

* 

CCW14 DC 
DC 

DC 



/4CO0 
/OOOO 
CCW14+3 
/OOOO 



EXPECTED- CHNL STATUS 

UNIT STATUS 

CSW ADDRS 

BYTE COUNT 



1 BYTE COUNT 

0*256+0PTI0 FLAGS AND OP CODE 
O ADDRESS 



t#s»(!t»«i!«*»tv**t«t**»«*t«*»t*4tt**»ttiti»t»**»*t»» 
* * 

********************** **************************;*;** 



T1501 EQU 
MDX 
BZ 
S 
BNZ 

* 

T1502 LD 
SLA 
BNN 
BSI 
DC 

T1503 BSI 

* 

LD 

STO 

BSI 



L TRID.l 
T1502 
2 Kl-TB 
T»601 

2 TSWO-TB 

OTTLE 

T1503 
2 TLGMS-TB 

TTL15 
2 STMLS-TB 

2 K100-TB 
2 LPCNT-Tb 
2 GETDV-TB 



TEST ENTRY POINT 
BUMP RTN ID 

BR IF TEST NUMBER ZERO 
DECREMENT BY ONE 
BR IF NOV THIS TEST 

GET OPTION SWS 
PRINT TITLES 

BR IF NOT SET 
GO TO PPINT ROUTINE 
MESSAGE ADDRESS 

GO TO MONITOR 

SET UP LOOP COUNT 

** 

GET DEVICE FOR ROUTINE 



***********************.**********#***************** 

* * 

»t»A»»*t»ttJ»««}»J(rt«»4t*ttt»«»*t*tS*ttt»*4tJt»**t« 

* 

* NO-OP ROUTINE 

* 

***«***********************».****«?*******«********* 

* * 

44 44»4 4444 4 4444444 4 44444«4«4444«4444«*«44«*444444^4 
T1504 LDX LI CC/.15 
STX LI SIOXX 



BSI 


2 SIO-TB 


DC 


SIOXX 


DC 


CSW15 


DC 


T1DEN 



GO TO NEXT ROUTINE IN SEQl'iNCE 
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ID/SEONO 
8J009510 
8100952 
81009530 
8100954 
81009550 
81009560 
81009570 
31009580 
81C09590 
8100960 
S1009610 
8100962 
81009530 
8100964 
8100J650 
81009660 
81009670 
81009630 
81009690 
8100970 
8100971 
8100972 O 
81009730 
8100974 
81009750 
61009760 
P1009770 
81009780 
81009790 
8100980 
8100981 
8100982 
81009830 
81 T09840 
81009850 
81009860 
81009670 
81009880 
81009890 
81009900 
8100991 
8100992 
81009930 
810C9C4 
810O9950 
81009960 
81009970 
8100998 
8.009990 
8101COOO 



15SEP71 
431328 



20NOV72 
431337 



PROG ID 

PAGE 



081 0-1 

10A 



V 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEi. 
ADDR REL OBJECT 

0B54 01 7AFF0866 
0B56 70F5 

0B57 42EF 

0B58 r C2C2 

0bS9 01 4C180B6E 

0B5B 42E9 

0B5C O0OE 
0B63 0005 
0B66 FFFF 



0B67 0001 
0B68 0003 
0B69 1 0B6A 



OB iA A000 

0B6B 000C 

0B6C 1 0B6A 

0B6D 0000 



0. 6E 1 

0B6E 01 74010315 

0B70 01 4C180B75 

0B72 9297 

0B73 01 4C20CBB7 



0B75 
OB 76 



C263 
100A 



0B77 01 4C100B7B 
0B79 4204 



0B7A 1 
0B7B U 



0B99 
42F8 



0B7C C2A1 
0B7D O D2E7 
0B7E 42F2 



DIAGNOSTI 
ST. NO. 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 



C/l 80 
LABEL OPCD FT OPERANDS 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



MDX 
MDX 

* 

T15EN BSI 
LO 
BZ 
BSI 

* 

TTL15 DMES 
DMES 
DC 

* 

* 

CCW10 DC 
DC 
DC 



L LPCNT.-l 
T1504 

2 FREDV-TB 
2 TRTNN-TB 

T160i 
2 CNTRL-TB 



COUNT LOOPS 
LOOP 

FREE DEVICE 
GST RTN NUMBER 

GO TO NEXT RTN IN SEQ 
GO TO CONTROL RTN 



1 S = CT l.r-iT 5- 
1 NO-OP'E 
/FFFr 



1 BYTE COUNT 

0*256+0PN0P FLAGS AND OP CODE 
* ADDPESS 



CSW15 DC /4000 

DC /000C 

DC CCW15+3 

DC /0000 

* * 



T1601 EOU 
MDX 
BZ 
S 
BNZ 

* 

T1602 LP 
SLA 
BNN 
BSI 
C 

T1603 BSI 

* 

LD 

STO 

BSI 



L TRID.l 
T1602 
2 Kl-TB 
T1701 

2 TSWO-TB 

OTTLE 

T1603 
2 TLGMS-TB 

TTL16 
2 STMLS-TB 

2 K100-TB 
2 LPCNT-TB 
2 GETDV-TB 



TEST ENTRY POINT 
tunc RTN ID 

UR IF TEST NUMBER ZERO 
DECREMENT BY ONE 
t'R IF NOT THIS TEST 

GST OPTION S*S 
PRINT TITLES 

tiH IF NOT SET 
GO TO PRINT ROUTINE 
MESSAGE ADDRESS 

GO TO MONITOR 

SET UP LOOP COUNT 

** 

CET DEVICE FOR ROUTINE 



* * 
* 

* BYTE COUNTER TEST 

* 



PART NO. 2279464 
PAGE 1 1 



ID/SEONO 

8101001 

81010020 

81010030 

31010040 

81010050 

81010060 

81010070 

81010080 

81010090 

81010100 

8101011 

81010120 

61010130 

81010140 

81010150 

81010160 

81010170 

8 1 1 1 P. O 

81010190 

81010200 

8101021 

31G1C '20 

8101023 i 

81010240 

310 1025 

81010260 

81010270 

810102BU 

81010290 

81010300 

81010 31 

81010320 

81010330 

81010340 

81010350 

81010360 

81010370 

(,1010380 

81010390 

81010400 

8101041 

81010420 

81010430 

810.0440 

81010450 

bl010460 

81010470 

81C 1048 

81010490 

61010500 



15SEP71 
431328 



2 0N0V72 
431337 



PROG ID 
PAGE 



0810-1 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL 
ADDR REL OBJECT 



CB7F 01 65000BB4 

0B81 01 6D0008A0 

0B83 O C297 

0B84 D02E 

0B85 9298 

0B86 F28l> 

0B87 O D02C 

0B88 4 2F5 

0B89 1 08AO 

0B8A 1 OBBO 

0B8B 1 OBAB 

0B8C COi.6 

0B8D 01 4C180B94 

0B8F O 1001 

0890 70F3 



0B91 01 74FF0866 

CB93 70FO 

0B94 O 42EF 

0B95 C2C2 

0B96 01 4C180BB7 

0B98 42E9 

0B99 OOOE 

OBAO 0013 

OBAA O FFFF 

OBAB C232 

OBAC C F006 

OBAD 01 4C180B94 

OBAF O 70DC 



OBBO 4000 

0BB1 OOOC 

0BB2 1 0BB7 

0BB3 0000 



0BB4 0000 
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DIAGNOSTIC/1800 














ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 






ID/SEONO 


1051 


• 










* 


8101051 


1052 


****#*#********#******* 


**************************** 


8101052 


1053 




LDX 


LI 


CCW16 


SET CCW LOC INTO IOCC 


81010530 


1054 




STX 


LI 


SIOXX 


* 




81010540 


1055 


* 












81C10S50 


1056 




LD 


P 


Kl-TB 


SET EXPECTED BYTE COUNT 


81010560 


1057 


T1604 


STO 




CSW16+3 


STORF FOR LATER COMPARE 


81010570 


1058 




S 


2 


K2-TB 


CREATE STARTING 


COUNT 


81C10580 


1059 




EOR 


2 


TERM-TB 


** 




81010590 


1060 




STO 




CCW16 


PUT IN CCW 




81010600 


1061 


* 












8101061 


1062 




BSI 


2 


SIO-TB 


GO DO SIO 




8101062 


1063 




DC 




SIOXX 






81010630 


1064 




DC 




CSW16 






81010640 


1065 




DC 




T1606 






81010650 


1066 


* 












81010660 


1067 


T1605 


LD 




CSW16+3 


GET EXPECTED BYT - : COUNT 


81010670 


1068 




BZ 




T16EN 


END RTN IF ALL 


BITS TESTED 


810 1063 


1069 




SLA 




1 


CHANGE BIT POSITION 


81010690 


1070 




MDX 




T1604 






81010700 


1071 


* 












8101071 


1072 


* 












8 1 1 72 


1073 


* 


GO TO NEXT ROUTINE IN SEQUENCE 




81010730 


1074 


* 












81010740 


1075 




MDX 


L 


LPCNT.-l 


COUNT LOOPS 




81010750 


1076 




MDX 




T1604 


LOOP 




81010760 


1077 


V 












81010770 


1078 


T16EN 


BSI 


2 


FREDV-TB 


FREE DEVICE 




8101078 


1079 




LD 


2 


TRTNN-TB 


GET RTN NUMBER 




81010790 


1080 




BZ 




T1701 


GO TO NEXT RTN IN SEQ 


SlOlOt-O 


1081 




BSI 


2 


CNTRL- "B 


60 TO CONTROL 


RTN 


eioio.i o 


1082 


* 












8101082 


1083 


TTL16 


DMES 


1 


SECT l.RT 6- 'E 




81010830 


1084 




DMES 


1 


BYTE COUNT REGISTER 'E 




81010840 


1085 




DC 




/FFFF 






31010850 


1086 


* 












8101086 


1087 


T1606 


LD 


2 


SCSXO+3- 


T5 ERROR DUE TO 


BYTE COUNT 


81010870 


1 088 




EOR 




CSW16+3 


* 




Rioioeao 


1039 




BZ 




T16EN 


NO. END ROUTINE 


81010890 


1090 


a 












8 1 1 C 90 


1091 




MDX 




T1605 


YES. TEST OTHEP BITS 


8101091 


1092 


* 












81010920 


1093 


* 












81010930 


1094 


CSW16 


DC 




/4000 


EXPECTED-CHAN 


STATUS 


8101094 


1095 




DC 




/OOOC 


-UNIT 


STATUS 


81010950 


1096 




DC 




CCW16+3 


-CCW 


ADDRESS 


81010960 


1097 




DC 




»-* 


-BYTE 


CNT SET UP 


81010970 


1098 


* 












8101098 


1099 


* 












81010990 


1100 


CCW16 


DC 




*-* 


BYTE COUNT 




8101-000 



DATE 
EC NO. 



14N0V69 
431319 



30 JAN70 
431319A 



15SEP71 
431326 



20NOV72 
431337 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE I8C0 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 






e 

9 



SELECTOR CHANNEL 
ADDR REL OBJECT 
0BB5 0003 
0B66 0000 



0BB7 1 

0BB7 01 74010815 

0BB9 01 4C1806BE 

OBBB 9297 

OBBC 01 4C200BEB 



OBBE 





C283 


OBBF 





100A 


OBCO 


01 


4C10 


0BC2 





4204 


0BC3 


1 


OB08 


0BC4 





42 F 8 


0BC5 





C2A1 


0BC6 





D2E7 


0BC7 





42F2 



0BC8 01 65000UE4 

OBCA 01 6D0008AO 

OBCC 42F5 

OBCD 1 08AO 

OBCE 1 UBE7 

ObCF 1 0BD3 



CBDO 01 74FF0866 

0BD2 O 70F5 

0BD3 42EF 

03D4 O C2C2 

0BD5 01 4C180BEB 

0BD7 42E9 



Dl AGNOSTI 
ST. NO. 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1 108 
1 109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 

I 121 

II 22 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 

I 13b 
1136 
1137 
1138 
1139 

II 
llil 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



C/180 
LABEL OPCD FT OPERANDS 

DC 0*256+0PN0P FLAGS AND OP CODE 

DC ADDRESS 

* 

*************************************************** 
* » 

************ ******** »»»t»tt.;»ttt«t>*t«»t»*«»l«tttl 



T1701 EOU 
MDX 
BZ 
S 
BNZ 

* 

T1702 LD 
SLA 
9NN 
BSI 
DC 

T1703 bSI 

LD 

STO 

BSI 



L TRID.l 
T1702 
2 Kl-Tf 
TI801 

2 TSWO-TB 

OTTLE 

T1703 
2 TLGMS-T6 

TTL17 
2 STMLS-TB 



TEST ENTRY POINT 
BUi-'P RTN ID 

BR iF TEST NUMBER ZERO 
CECREMENT BY ONE 
BR IF NOT THIS TEST 

GET OPTION SWS 
PRINT TITLES 

□R IF NOT SET 
GO TO PRINT ROUTINE 
MESSAGE ADDRtSS 

GO TO MONITOR 



2 K100-TB 
2 LPCNT-Tb 
2 GETDV-TB 



SET DP LUOP COUNT 

** 

GET DEVICE FOR ROUTINE 

* 

***#****#******£*****i*«*****«*«***. .*****•********* 

* * 
************ ««**«*******.»«******4««*«« ************* 
* 

* TIC ROUTINE 
* 

*,*««**•*** ***t <**»**********•********•***••*••••*** 

* * 
***«*****«**«*««.>***********•*•***•****•*•**•*•*«** 
T1704 LDX LI CCW17 

STX LI SiOXX 



SET CCK ADDRS INTO IOCC 



BSI 


2 


SIO-TB 


GO 00 SIO 


DC 




SIOXX 


IOCC ADDRS 


DC 




CSW17 


EXP CCW ADDRS 


DC 




T17EN 


ERriOR RETURN 



GO TO NEXT ROUTINE IN SEQUENCE 



MDX 
MDX 

* 

T17EN BSI 
LD 
BZ 
BSI 



L LPCNT.-l 
T1704 

2 FREOV-TB 
2 TRTNN-TB 

T1801 
2 CNTRL-TB 



COUNT LOOPS 
LOOP 

FREE DEV'CE 
GET RTN NUMBER 

GO TO NEXT RTN IN SEO 
GO TO CONTROL RTN 
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ID/SEON0 

8101101 

81011020 

81011030 

81011040 

81011050 

8101 1060 

61011070 

8101 1080 

81011090 

81011100 

31011 11 

81011120 

81011130 

810U14C 

8101 1150 

8101 1 160 

310 1117 

8101 1180 

8101 1190 

tl011200 

41011210 

8101122; 

8101 1230 

81011240 

810' 1250 

81011260 

81C11270 

81011280 

8!01129'5 

8101 1300 

6 1 J 1 1 31 

81011320 

SlOl 1 330 

81011340 

8101 1350 

81011360 

81011370 

81011380 

81011390 

81011400 

3101141 

8101 1420 

8101 1430 

81011440 

8101 1450 

81011460 

8101 147 

8101 1460 

8101 149 •; 

8101 1500 



15SEP71 
43132 8 



20NOV72 
431337 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL 
ADDR REL OBJECT 
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0BD8 OOOE 
OSDF 0008 
0BE3 C FFFF 



0BE4 0000 
0BE5 0008 
OBEo 1 0889 



0BE7 4000 

0BE8 OOOC 

06E9 1 088C 

OBEA 0000 



OBEfc) 1 

OBEB 01 74010815 

OBED 01 4C180BF2 

OBEF 9297 

OBFO 01 4C200C3E 

0BF2 C263 

0BF3 100A 

0BF4 01 4C100BF8 

0BF6 4204 

0BF7 1 0C17 

0BF8 42F8 

0BF9 C2A1 

OBFA D2E7 

OBFB 42F2 



OBFC 01 65000C26 
OBFE 01 6D000BA0 



OCOO 
0C01 



C26D 
D217 



DIAGNOSTIC/1800 












ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 




ID/SEONO 


1151 


* 










81011510 


1152 


TTL17 


DMES 


1 


SECT l.RT 


7- 'E 


81011 52 


1153 




DMES 


1 


TIC TEST<E 




81011530 


1154 




DC 




/FFFF 




81011540 


1155 


* 










81011S50 


1156 


* 










8101 1560 


1157 


CCW17 


DC 







BYTE COUNT 


81011570 


1158 




DC 




0*256+OPTIC FLAGS AND OP CODE 


8101 158 3 


1159 




DC 




NOPCC 


ADDRESS 


81011590 


1160 


* 










8101160 


1161 


* 










81011610 


1162 


CSW17 


DC 




/4000 




8101162 


1163 




DC 




/OOOC 




61011630 


1164 




DC 




NOPCC+3 




8 1 1 ! 64 


1165 




DC 









81011650 


1166 


* 










81011 66 


1167 


*******************************************,******* 


81011670 


1168 


* 








* 


3101 1680 


1169 


***$*=****#***************************************** 


31011690 


1170 


Tieoi 


EQU 




* 


TEST ENTRY POINT 


8101170 


1171 




MCX 


L 


TRIl .1 


BUMP RTN ID 


81011710 


1 172 




BZ 




T1802 


BR IF TEST NUMBER ZERO 


8 1 1 1 72 


1173 




S 


2 


Kl-TB 


DECREMENT BY ONF 


81011730 


11 7* 




BNZ 




T1901 


BR IF NOT THIS TEST 


8101 1 74 


1175 


* 










ol011750 


1 176 


T1802 


LD 


2 


TSKO-TB 


GET OPTION SWS 


3101176 


1177 




SLA 




OTTLE 


PRINT TITLES 


31011770 


1178 




BNN 




T1603 


BR IF NOT SET 


81011 "flO 


1179 




BSI 


2 


TLGWS-TB 


.-■0 TO PRINT ROUTINE 


81011790 


1180 




DC 




TTL18 


MESSAGE ADDRE3S 


8101 180 


1 181 


T1B03 


bSI 


2 


STMLS-TB 


GO TO MONITOR 


8101181 C 


1 162 


* 










8101 1B2 


1 183 




LD 


2 


Kl OO-TB 


SET UP LOOP COUNT 


81011830 


Iie4 




STO 


2 


LPCNT-TB 


** 


810118*0 


1185 




BSI 


2 


GETDV-TB 


GET DEVICE FOR ROUTINE 


01011850 


1186 


* 










8101186 


1187 


*************************************************** 


81011870 


1188 


* 








* 


810 1168 


1189 


>************************************************** 


81011890 


1190 


* 










8101 190 


1191 


* 


SENSE I/O TEST 




8101191 


1192 


* 










8101 192 


1193 


********* s 


***************************************** 


81011930 


1194 


* 








* 


8101 1 940 


1195 


*************************************************** 


8101 1950 


1196 




LDX 


LI 


CCW18 


SET CCW ADDRESS IN IOCC 


8101 1 960 


1197 




STX 


LI 


SIOXX 


** 


81011970 


1198 


* 










810 1 1 98 


1 199 


T1804 


LD 


2 


TERM-TB 


SET UP DATA AR£A=FFFF 


81011990 


1200 




STO 


2 


SNWDO-TB 


** 


81012000 



DATE 
EC NO. 



14N0V69 
431319 



30 JAN70 
431319A 



15SEP71 
431328 



20NOV72 
431337 



PROG ID 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL 
ADDR REL OBJECT 

0C02 D218 

0C03 42F5 

0CC4 1 08A0 

0C05 1 0C29 

OCO' 1 0C12 

0C07 C217 

0C08 F28D 

0C09 01 4C200C0F 

0C0B 42EC 

0C0C 010A 

0C0D 1 0C2C 

0C0E 7003 



0COF 01 74FF0866 

0C11 70EE 

0C12 42EF 

0C13 C2C2 

0C.14 01 4C180C3E 

0C16 42E9 

0C17 000E 

0C1E 000E 

0C25 FFFF 

0C26 0004 

0C27 2004 

0C23 1 0896 



0C29 4000 

0C2A 100C 

0C2B 1 0C29 

0C2C 0022 

0C3D FFFF 
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0C3E 1 

0C3E 01 74010815 



DIAGNOSTIC/1800 












ST. NO. 


LABdL 


0PCD 


FT 


OPERANDS 




ID/SEQNO 


1201 




ST0 


2 


SNWD1-TB 


* 


8101201 


1202 


* 










81012020 


1203 




asi 


2 


SIO-TB 


GO DO THE START I/O 


81012030 


12C4 




OC 




S10XX 


IOCC ADDRESS 


81012040 


1205 




DC 




CSW18 


CSW COMPARE LIST 


81012050 


1206 




DC 




T18EN 


ERROR ADDRESS 


81012060 


1207 


* 










81012070 


1208 




LD 


2 


SNWDS-TB 


SEE IF DATA XFERRED 


81012080 


1209 




EOR 


2 


TERM-TB 


a* 


81012090 


1210 




BNZ 




T1806 


BR IF DATA XFERRED 


81012100 


1211 


* 










8101211 


1212 


T1805 


BSI 


2 


EROUT-TB 


PRINT MESSAGE 


81012120 


1213 




DC 




/010A 




81012130 


1214 




DC 




T18M1 


MESSAGE ADDRESS 


81012140 


1215 




MDX 




T18EN 


END RTN 


81012150 


1216 


* 










81012160 


1217 


* 










81012170 


1218 


* 


GO TO NEXT ROUTINE 


IN SEQUENCE 


81012180 


1219 


* 










81C12190 


1220 


T1606 


MDX 


L 


LPCNT.-l 


COUNT LOOPS 


81012200 


1221 




MDX 




T1804 


LOOP 


8101221 


1222 


* 










81C 2220 


1223 


T18EN 


BSI 


2 


FREDV-TB 


FREE DEVICE 


81012230 


1224 




LD 


2 


TR1NN-TB 


GET RTN NUMBER 


81012240 


1225 




BZ 




TI901 


GO TO NEXT RTN IN SEQ 


81012250 


1226 




BSI 


2 


CNTRL-Tb 


GO TO CONTROL RTN 


81012260 


1227 


* 










81012270 


1228 


TTL18 


DMES 


1 


SECT l.RT 


8- «E 


81012280 


1229 




DMES 


1 


SENSE I/O 


TLST'E 


81P12290 


12i0 




DC 




/FFFF 




81012300 


1231 


* 










8101231 


1232 


CCW18 


DC 




4 


BYTE COUNT 


81012320 


1233 




DC 




FLSLI*2S6+OPSNS FLAGS AND OP CODF 


81012330 


1234 




DC 




SNWDS 


ADDRESS 


81012340 


1235 


* 










81012350 


1236 


* 










81012360 


1237 


CSWlfa 


DC 




/4000 


EXPECTED-CHAN STATUS 


81012370 


1238 




DC 




/100C 


-UNIT STATUS 


31012380 


1239 




DC 




CCW18+3 


-CSW ADDRESS 


31012390 


1240 


* 










81012400 


1241 


T18M1 


DMES 


1 


1803 DATA 


NOT TRANSFERRED TO CORE'E 


8101241 


1242 


* 










81012420 


1243 




DC 




/FFFF 




81012430 


1244 


* 










81012440 


1245 


* 










81012450 


1246 


*************************************************** 


81012460 


1247 


* 








* 


81C12470 


1248 


*****************************************#***■;(***** 


810i 2430 


1249 


T1901 


EQU 




* 


TEST ENTRY POINT 


81 CI 249 


1250 




MDX 


L 


TRID.l 


BUMP RTN ID 


81012500 



DATE 
EC NO. 



14N0V69 
431319 



?OJAN70 
431319A 



15SEP71 
431328 



20NOV72 
431337 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



PART NO. 2279464 
PAGE 1 3 A 



SELECTOR CHANNEL 


DIAGNOSTIC/1800 














ADDR 


REL ObJECT 


ST.NC. 


LABEL 


OPCD 


FT 


OPERANDS 






ID/SEQNO 


0C40 


01 


4C180C45 


1251 




BZ 




T1902 


rR IF TEST NUMBER Z 


ERO 


8101251 


0C42 





9297 


1252 




S 


2 


Kl-TB 


DECREMENT BY ONE 




8 1 1 2 52 


0C43 


01 


4C200A1E 


1253 
1254 


* 


BNZ 




T1101 


BR IF NOT THIS TEST 




810125JO 
8 1 1 2 54 


0C45 





C283 


1255 


T1902 


LD 


2 


TSW0-T6 


GET OPTION SWS 




81012550 


0C46 





100A 


1256 




SLA 




OTTLE 


PRINT TITLES 




81012560 


0C4 7 


01 


4C100C4B 


1257 




BNN 




T1903 


BR IF NOT SET 




81012570 


0C49 





4204 


1258 




BSI 


2 


TLGMS-TB 


GO TO PRINT ROUTINE 




81012580 


0C4A 


1 


0C67 


1259 




DC 




TTL19 


MESSAGE ADDRESS 




81012590 


0C4B 





4 2F3 


1260 
1261 


T1903 

* 


BSI 


2 


STMLS-TB 


GO TO MONITOR 




81012600 
811,1261 


0C4C 





C2A1 


1262 




LD 


2 


K100-TB 


SET UP LOOP COUNT 




8 1 1 2 62 


0C4D 





02E7 


1263 




STO 


2 


LPCNT-TB 


** 




83012630 


0C4E 





42F2 


1264 




SSI 


2 


GETDV-T6 


GET DEVICE FOR ROUTINE 


8101264 








1265 


* 












81012650 








1266 


***** 


.*************************************» 


******* 


8101266 








1267 


* 










* 


31012670 








1268 


******************************************** 


******* 


81012680 








1269 


* 












81012690 








1270 


* 


DATA 


CHECK TEST 






SI 01270 








1271 


* 












81012710 








1^72 


*********************** 


a**********************-)**** 


8 1 I 2 72 








1273 


* 










* 


81012730 








1274 


***** 


****************** 


**************************** 


8101274 


0C4F 


01 


65000C80 


1275 




LDX 


LI 


CCW19 


SET CCW ADDRS INTO 


IOCC 


8101 2750 


0C51 


01 


6D0008A0 


1276 




STy 


LI 


SIOXX 


* 




81012760 


0C53 





C28D 


1277 




LD 


2 


TERM-TB 


SET SENSE ADDRS TO 


FFFF 


81012770 


0C54 





D2E6 


1278 




STO 


2 


SFROT-TB 


** 




81012780 


0C55 


01 


2C410865 


1279 
1280 


* 


STS 


L 


SPR0T./41 


SET PROTECT BIT 




..1012790 
81012800 


0CC7 





42F5 


1231 


T1904 


BSI 


2 


SIO-TB 


DO SIO 




810 I 281 


0C58 


1 


08A0 


1282 




DC 




SIOXX 


IOCC ADDRS 




81012820 


0C59 


1 


0C7C 


1283 




DC 




CSW19 


EXP CSW ACDRS 




81012830 


OC5A 


1 


0C62 


1284 
1285 


* 


DC 




T19EN 


ERROR RETUPN 




81012040 
81012850 


0C5B 





C2E6 


1286 




LD 


2 


SPROT-TB 


GET SENSE DATA 




8 1 1 2 86 


0C5C 





F2BD 


1287 




EOR 


2 


TERM-TB 


WAS IT CHANGED 




81012870 


0C5D 


01 


4C200C77 


1288 
1289 
1290 


* 
* 


BNZ 




T1905 


YES. BRANCH 




8101268 
81912890 
81012900 








1291 


* 


GO TO NEXT ROUTINE IN SEQUENCE 




Slot 291 








1292 


* 












8 1 1 2 92 


0C5F 


01 


74FF0866 


1293 




MDX 


L 


LPCNT.-l 


COUNT LOOPS 




81012930 


0C61 





70F5 


1294 
1295 


* 


MDX 




T1904 


LOOP 




81012940 
81012950 


0C62 





42EF 


1296 


T19EN 


BSI 


2 


FHEDV-TB 


FREE DEVICE 




810129-iO 


0C63 





C2C2 


1297 




LD 


2 


TRTNN-Tb 


GET RTN NUMBER 




S1012970 


0C64 


01 


4C180C98 


1298 




BZ 




T1A01 


GO TO NEXT RTN iN 


SEQ 


81012980 


0C66 





42E9 


1299 
1300 


* 


BSI 


2 


CNTRL-TB 


GO TO CONTROL RTN 




81012990 
31013C00 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



20N0V". . 
431337 
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PAGH 
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IBM MUNTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL 
ADDR REL OBJECT 

0C67 OOOE 

0C6E OOOF 

0C76 FFFF 

0C77 O 42EC 

0C78 010A 

0C79 1 0C83 

0C7A O 19 1 

0C7B O 70E6 

0C7C O 4800 

OC'D 100C 

0C7E 1 0C83 

0C7F O 0000 



0C80 O 0002 
0C81 2004 
0C82 1 086S 



0C83 0024 
0C95 0004 
0C97 O FFFF 



0C98 42E9 



0C99 
0C9A O 



00': 2 
0006 



0C9B C2C2 

0C9C 01 4C1R0CA3 

0C9J 90FB 

0C9F 31 4C3009D2 

0CA1 80F8 

0CA2 O 7000 



DI AGNOSTI 
ST. NO. 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
131S 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
13?5 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
134 5 
1346 
1347 
1348 
1349 
1350 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



C/1800 

LABEL OPCD FT OPERANDS 

TTL19 DMES 1 SECT 1 ,RT 9- «E 

DMES 1 DATA CHECK TEST'E 

DC /FFFF 
» GET HERE IF PROTECTED AREA WAS CHANGED 

T1905 BSI 2 EROUT-TB 

DC /010A 

DC T1906 

DC /1901 

MDX T19EN 



CSW19 DC 
DC 
DC 
DC 



CCW19 DC 
DC 
DC 



/4800 
/100C 
CCW19+3 

*-» 



2 BYTE COUNT 

/20*2S6+0PSNS FLAGS AND OP CODE 
SPROT ADDRESS 



TI906 DMES 1 1903 STORAGE PROTECTED AREA WAS CHA» 

DMES 1 NGED'E 

DC /FFFF 
ft****************^*:?******************************* 

* * 
**********v#****** ********************************* 
* 

* SECTION END 
* 

T1A01 BSI ? CNTRL-TB GO TO CONTROL RTN 

*;.*^************* ********************************* 

* * 
**>*******************************•**«*****•*****•* 

* 

* SECTION PREFACE 
* 

T20PR DC /0002 SECTION NUMBER 

DC 6 

ft 

T20NT LD 2 TRTNN-Tb SW FNC 1 HITS 12-15 

BZ T2101 

S T20PR+I TEST FflR VALID 

BP TCNER BR IF INVALID HTN NUM8ER 

A T20PR+1 RESTORE RTN NUMBER 

MDX T2101 GO TO 1ST ROUTINE 

* ft******************************************-******;;:* 

* * 
ft*****-**********-********************* . * ***#******.** 

T2101 EOU * TEST ENTRY POINT 
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ID/SEQNO 

8101301 

8101302C 

81013030 

81013040 

81013050 

81013060 

81013070 

81013080 

81013090 

81013100 

81013110 

81013120 

81013130 

81013140 

81013150 

81013160 

81013170 

81013180 

81013190 

81013200 

8101321 

B101 3220 

81013230 

810 1324 

6101 325.0 

S1013260 

81f>13i70 

810 132 HO 

81013290 

81013300 

8101331 

8101332 

8101 3330 

81013340 

8I0133EO 

81013360 

81013370 

81013390 

81013390 

81013400 

8101341 

810 13420 

81013430 

81013440 

81013450 

81013460 

81013470 

c'10134!i0 

81013490 

81013500 



15SEP7! 
431328 



2 0NOV72 
431337 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL DI 
ADDR REL OBJECT S 
0CA3 01 74010815 
0CA5 01 4C180CAA 
0CA7 9297 
0CA6 01 4C200CFF 

OCAA D006 

0CA3 C283 

OCAC 100B 

OCAD 01 4C100CB2 

OCAF C00 1 

OCBO 704E 



ocei o 

0CB2 
0CB3 



0000 
C283 
100A 



0CB4 01 4C100CB8 
0CB6 4204 
0CB7 1 0CD6 



OCBB 42F8 

0CB9 C2A1 

OCBA D2E7 

OCBb 42F2 



OCBC 01 65000CE6 
OCBE 01 6D0008AO 



OCCO 





C28D 


0CC1 





D217 


0CC2 





42F5 


0CC3 


1 


08A0 


ocC4 


1 


OCEC 


OCCb 


1 


0CD1 



0CC6 C217 

0CC7 F28D 

0CC8 01 4C200CCE 

OCCA 42EC 

OCCB 0103 

OCCC 1 OCEF 



AGMOST 

T.NO. 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

13c 4 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

138 1 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 



IC/1800 

LABEL OPCD FT OPERANDS 
MDX L TRID.l 



DATE 
EC NO. 



14N0V69 
431319 



30 JAN70 
431319A 



BZ 

S 

BNZ 

* 

T2102 STO 
LD 
SLA 
BNN 
LD 
B 

* 

T21XX DC 
LD 
SLA 
BNN 
BSI 
DC 

* 

T2103 BSI 
LD 
STO 
BSI 



T2102 

2 Kl-TB 

T2201 

T21XX 
2 TSWO-TB 
11 

T21XX+1 
T21XX 
T2201 

*-* 
2 TSWO-TB 

OTTLE 

T2103 
2 TLGMS-TB 

TTL21 

S STMLS-TB 
2 K100-TB 
2 LPCNT-TB 
2 GETDV-TB 



BUMP RTN ID 

BR IF TE-T NUMBER ZERO 

DECREMENT BY 1 

BR IF NOT THIS TEST 

SAVE RTN NUMBER 

GET DPT ION SWS 

TEST SKIP RTf! 

BR IF NO 

RESTORE RTN NUMBFR 

GO TO NEXT RTN 

RTN NUMBER 
GET OPTION SWS 
PRINT TITLES 
BR IF NOT SET 
GO TO PRINT PTN 
MESSAGE ADDRS 

GO TO fr'ONITCR 

SET UP LOOP CNT 

* 

GET DEVICE 



*************************************************** 

* * 
*************************************************** 
* 

* DATA CHAIN TEST 
* 

ft************************************************** 

* * 

*************************************************** 



LDX LI CCW21 
STX LI SIOXX 



T2104 LD 
STO 

* 

BSI 
DC 
DC 
DC 

* 

LD 

EOR 

BNZ 

* 

T2105 BSI 
DC 
DC 



2 TERM-TB 
2 SNWDO-TB 

2 SIO-TB 
SIOXX 
CSW21 
T21EN 

2 SNWDO-TB 

2 TERM-TB 

T2106 

2 FROUT-TB 
/0108 
T21M1 



SET CCW ADDRS IN ICCC 

* 

SET UP DATA AREA 

* 

CO DO "10 

IOCC ADDRS 

CSW COMPARE LIST 

ERROR ADDRS 

SEE IF DATA XFERRED 

* 

BR IF YES 

ELSE PRINT ERROR MSG 

MSG ADDRS 
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I0/SEON0 

810135' O 

8101352 

810135r>0 

81013540 

61013550 

81C13560 

81013570 

81013580 

81013590 

81013600 

-J101361 C 

81013620 

81013630 

8101364 

81013650 

8101366T 

81013670 

81013680 

81013690 

81013700 

8101371 

8101372 

el013730 

8 1 1 3 74 

81C13750 

81013760 

810.3770 

81013760 

81013790 

8101380 C 

81013810 

8101382 

81013830 

8101384 

81013850 

81013860 

81012870 

8101388 

81013890 

81013900 

81013910 

8101392 

81013930 

81013940 

31013950 

8' 01 396 

81013970 

81013980 

81013990 

81014000 



15SEP71 
431328 



20NOV72 
4 3 1 33 7 



PROG ID 
PAGE 



0810-1 
14A 
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SELEC 


-TOR CHANNEL 


DIAGNOSTIC/1800 












ADDR 


REL OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 




ID/SEQNO 


OCCD 





7003 


1401 
1402 


* 


MDX 




T21FN 


END RTN 


8101401 
81014020 


OCCE 


01 


74FF0866 


1403 


T2106 


MDX 


L 


LPCNT.-l 


COUNT LOOPS 


8101403 


OCDO 





70EF 


1404 
1405 


* 


MDX 




T2104 


LOOP 


81014040 
8101*050 


0CD1 





42EF 


1406 


T21EN 


BSI 


2 


FREDV-TB 


FREE DEVICE 


81014060 


0Ci~> 





C2C2 


1407 




LD 


2 


TRTNN-TB 


GET RTN NUMBER 


B1014070 


0CD3 


01 


4C180CFF 


1408 




BZ 




T2201 


GO TO NEXT RTN 


81014080 


OCDS 





42E9 


1409 
1410 


* 


BSI 


2 


CNTRL-TB 


ELSE GO TO CONTROL RTN 


81014090 
81014100 


0CD6 




00 ID 


1411 


TTL21 


DMES 


1 


SECT 2.RT 


I- DATA CHAIN TEST'E 


81014110 


0CE5 





FFFF 


1412 
1413 


* 


DC 




/FFFF 




81014120 
81014130 


0CE6 





0001 


1414 


CCW21 


DC 




1 


BYTE COUNT 


81014140 


0CE7 





8004 


1415 




DC 




FLDCH*256+0PSNS FLAGS AND 0° CODE 


81014150 


ocea 


1 


0897 


1416 
1417 


* 


DC 




SNWC1 


ADDRS 


81014160 
81014170 


0CE9 





0001 


1418 




OC 




1 


BYTE COUNT 


81014180 


OCEA 





20FF 


1419 




DC 




FLSLI*256+/FF FLAGS AND OP CODE 


61014190 


OCEB 


1 


0896 


1420 
1421 


* 


DC 




SNWDO 


ADDRESS 


810 142 
6101421 


OCEC 





4000 


1422 


CSW21 


DC 




/4000 


EXPECTED-CHAN STATUS 


hi 1422 


OCED 





100C 


1423 




DC 




/100C 


-UNIT STATUS 


8101^230 


OCEE 


1 


OCEC 


1424 
1425 


* 


DC 




CC'121 + 6 


-CSW ACDRS 


81014240 
81014250 


OCEF 




OOIE 


1426 


T21K1 


DUES 


1 


2103 DATA 


NOT XrERRED TO CORE'E 


81014260 


OCFE 





FFFF 


1427 




DC 




/FFFF 




81014270 








1428 


*3#***********#***********.*******#*******s#**#**.*** 


810142A0 








1429 


* 








* 


81014290 








1430 


i(t*****SV»»*t#*4?*«f******?»*f**¥9**9***«*t**4*fti»«l* 


81014 3 00 








14JI 


* 










6101431 








1432 


****"» 


e****# it*********************************** :>*** 


81014320 








1433 


* 








* 


8101433 








1434 


: (tt»t4«**fVt«»«4««**#t»»«)4«vtv«*»**tt***»*(«4*Mt 


81014340 


OCFF 


1 




1435 


T2201 


EQU 




4 


TEST ENTRY POINT 


81014350 


OCFr' 


01 


74010B1S 


1' 36 




MDX 


L 


TRID.l 


BUMP RTN ID 


81014360 


0D0 1 


01 


4C160006 


1437 




bZ 




T2202 


BR IF TEST NUWBER ZERO 


81014370 


0DC3 





9297, 


1438 




s 


2 


Kl-TB 


DECREMENT BY Ohn 


81014360 


0D04 


01 


4C200DS4 

C283* 


1439 
1440 


* 


BNZ 




T2301 


BR IF NOT THIS TEST 


81014390 
81014400 


0D06 





144 1 


T2202 


LD 


2 


TSWO-TB 


GET OPTION SWS 


8101441 


0D07 





100A 


1442 




SLA 




OTTLE 


PRINT TITLES 


31014420 


0D0O 


01 


4C100D0C 


1443 




BNN 




T2203 


BR IF NOT SET 


8101443 


ODOA 





4204 


1444 




bSI 


2 


TLGMS-TB 


GO TO PRINT ROUTINE 


t 1014440 


ODOB 


1 


0U2A 


1445 




DC 




TTL22 


MESSAGE ADDRESS 


81014450 


00 OC 





4 2H3 


1446 
1447 


T2203 

* 


BSI 


2 


STMLS-TB 


GO TO MONITOk 


81014460 
8101 4470 


ODOD 





C2A1 


1448 




LD 


2 


Kl OO-TB 


SET UP LOOP COUNT 


C-1014480 


ODOE 





02E7 


1449 




SfO 


2 


LPCNT-TB 


** 


8ini449C 


ODOF 





42F2 


1450 




BSI 


2 


GETDV-TB 


GET DEVICE FOR ROUTINE 


81014500 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431326 



20N0V72 
431337 



PROG ID 
PAGE 



oei o-i 
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0D10 01 65000D33 
0D12 01 OD0008A0 



0D14 





C28D 


0D15 





D217 


0D16 





42F5 


0D17 


1 


OfcAO 


0D18 


1 


004 1 


0D19 


1 


0D25 



0D1A C217 

0D1B F28D 

0D1C 01 4C20U022 

0D1E O 42EC 

0D1F O 010E 

0D20 1 0D44 

0D2 1 O 7003 



0022 01 74FF0866 

0D24 70£F 

0025 42EF 

0D26 C2C2 

0D27 01 4C160054 

0029 42E9 

0D2A OOOE 

0031 00 12 

003A FFFF 

0D3fa 000 1 

0D3C O 4003 

0D3D 1 0897 



DIAGNOSTIC/1800 














ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 






IO/SEONO 


1451 


* 












8101451 


1452 


*t***t«»«»tt«»»*»tt***ttt»»**»«»»#*t*i*»*ts 


******** 


81014S20 


1453 


* 










* 


81014530 


1454 


*******#*#***********#***************************** 


8101454 


1455 


S 












81014050 


1456 


* 


COMMAND 


CHAIN TEST 






81014560 


1457 


* 












81014570 


1458 


* * * * * 


**.***¥******v*******#*************v*******:**** 


81014580 


1459 


* 










* 


81014590 


1460 


*4**4»;;jtS*«»*t***«St»*t*»»«**t**i*«***««S»«*t» 


81014600 


1461 




LDX 


LI 


CCW22 


SET CCW ADDRESS 


IN IOCC 


5101461 


1462 




STX 


LI 


SIOXX 


** 




8 1 1 4 62 


1463 

1464 


* 
T2204 


LD 


2 


TERM-TB 


SET UP DATA AREAi 


FFFF 


81014630 
8101464 


1465 




STO 


2 


SNWDO-TB 


* ** 




81014650 


1466 
1467 


* 


BSI 


2 


SIO-TB 


GO DO THE STAUT I/O 


81014660 
81014670 


1468 




DC 




SIOXX 


IOCC ADDRESS 




81014680 


1469 




DC 




CSW22 


CSW COMPARE LIST 




81014690 


1470 




DC 




T22EN ERROR ADDRESS 




8101470 


147! 
1472 


•* 


LD 


2 


SNWDO-TB 


GET DATA WORD 




8101471 
8101472 


1473 




EOR 


2 


TERM-TB 


* 




81014730 


1474 




BNZ 




T2205 


BR IF DATA XFERREO 


8 1 I 4 74 


1475 
1476 


* 


US I 


2 


EROUT-TB 


PRINT MESSAGE 




81014750 
8101476 


1477 




DC 




/010E 






81014770 


1478 




DC 




T22M1 


MESSAGE ADDRESS 




'■J 01 -.78 


1479 




MDX 




T22EN 


END RTN 




81014790 


1480 
1481 


* 

* 












810 ! 480 
81C14810 


1482 


* 


GO TO NEXT ROUTINE 


IN SEQUENCE 




8101482 


14b3 


fc 












81014830 


1484 


T2205 


MDX 


L 


LPCNT.-l 


COUNT LOOPS 




81014840 


1485 




MDX 




T2204 


LOOP 




81014850 


1486 
1487 


* 
T22KN 


BSI 


2 


FREDV-TB 


FREE DEVICE 




81014860 
81014870 


1488 




LO 


2 


TRTNN-TB 


GET RTN NUMBER 




8101488 


1489 
1490 




BZ 

esi 


2 


T2301 
CNTRL-TB 


GO TO NEXT STN IN 
GO TO CONTROL RTN 


SEO 


81014890 
81 J 14 90 


1491 
1492 
1493 
1494 


* 
TTLI2 


DMES 
OMES 
DC 


1 

1 


SECT 2.RT 2- >E 
COMMAND CHmIN TEST'E 
/FFFF 




81014910 
8101492 
81014930 
8101494 


1495 
1496 
1497 


* 
CCW22 


DC 
DC 




1 BYTE COUNT 
FLCCHS256+0PN0P FLAGS AND 0^ 


CODE 


81014950 
8101496 
81014970 


1498 
1499 
1500 


* 


DC 




SNWD1 


ADDRESS 




81014980 
81014990 
81015000 



DATE 
EC NO. 



14N0V69 
43131 'j 



30JAN70 
431319A 



15SEP71 
431328 



20NOV72 
43133 7 



PROG 
PAGE 



ID 



081O-1 
15A 



A 
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SELECTOR CHANNEL 


DI AGN0ST 


C/1300 












ADDR 


REL OBJECT 


ST .NO. 


LABEL 


0PCD 


FT 


OPERANDS 




ID/SEQNO 


0D3E 





0001 


1501 




DC 




1 


BYTE COUNT 


810150 1 


0D3F 





2004 


1502 




DC 




FLSLI*256+OPSNS FLAGS AND OP CODE 


61015020 


0040 


1 


0896 


1503 
1504 
1505 


* 


DC 




SNWD0 


ADDRESS 


8101503C 
81015040 
81015050 


0D4 1 





4000 


1506 


CSW22 


DC 




/4000 


EXPECTED-CHAN STATUS 


C1015060 


0D42 





10. C 


1507 




0C 




/100C 


-UNIT STATUS 


81015070 


0D43 


1 


0D41 


1508 
1509 


* 


DC 




CCW22+6 


-CSW ADDRESS 


81015080 
81015090 


0D44 




00 IE 


1510 


T22M1 


DMES 


1 


2203 DATA NOT XFERRED TO CORE'S 


01015100 








1511 


* 










8101511 


0D53 





FFFF 


1512 
1513 
1S14 
1515 
1516 


* 

* 
* 
* 


DC 




/FFFF 




81015120 
81015130 
81015140 
H1015150 
81015160 








1517 


************************* *SSStt*(}»(i»t**tt»»*»»J*t 


81015170 








1518 


* 








* 


8 1 1 5 1 ft 








1519 


*********** x--*^************************** *********** 


8101 5190 


0D54 


1 




1520 


T2301 


E0U 




* 


TEST ENTRY POINT 


8101S200 


0D54 


01 


74010815 


1521 




MDX 


L 


TRID.l 


BUMP RVN ID 


810 1521 C 


0D56 


01 


4C180D5B 


1522 




BZ 




T2302 


BS IF TEST NUMBER ZERO 


81015220 


0D58 





9297 


1523 




S 


2 


Kl-TB 


DECREMENT BY ONE 


8101S230 


0059 


01 


4C200DAA 


1524 
1525 


* 


BNZ 




T2401 


BR IF MOT THIS TEST 


81015240 
8101 £25 


0D5B 





C2B3 


1526 


T2302 


LD 


2 


TSWO-TB 


GET OPTION SKS 


8101£c60 


0D5C 





100A 


152 7 




SLA 




OTTLE 


PRINT TITLES 


8101S270 


0D5D 


01 


4C100D61 


1526 




BNN 




T2303 


bR IF NOT SET 


810152 30 


0D5F 





4204 


1529 




BSI 


2 


TLGKS-TS 


GO TO PRINT ROUTINE 


81015290 


0060 


1 


007F 


1530 




DC 




T1L23 


MESSAGE ADDRESS 


61015300 


0D61 





4 21-8 


1531 
1532 


Ti ~03 

* 


BSI 


2 


STKLS-TB 


GO TO MONITOR 


aioi^i 

81015320 


0D62 





C2A1 


1533 




LD 


2 


K100-TB 


SET UP LOOP COUNT 


81015330 


0D63 





D2L7 


1534 




STr> 


2 


LPCNT-TB 


.** 


8.015340 


0D64 





42l : 2 


1535 
1536 


* 


oSI 


2 


GETDV-TS 


GET DEVICE FOR ROUTINE 


61015350 
81015360 








1537 


***** 


******** 


************************************** 


81015370 








1538 


* 








* 


81015380 








1539 


********** 


a************************************...*** 


8101539 








1540 


* 










81015400 








1 54 1 i. 


* 


INCORRECT LENGTH 


(SLI BIT OFF) 


8101541 








1542 


* 










81015420 








1543 


♦♦it*********************************************** 


81015430 








1544" 


* 








* 


C1015440 








1545- 


St*****************-**** 


«t«4««»««**«t«««t«t«t«t**t::t 


81015450 


0D65 


01 


65000D94 


1546 




LDX 


LI 


CCW23 


SET CCW ADDRESS IN IOCC 


8101S46C 


006? 


01 


600008AO 


1547 
1548 


* 


STX 


LI 


S10XX 


** 


61015470 
81015480 


0D69 





C280 


1549 


T2304 


LD 


2 


TERH-TB 


SET UP DATA AREA=FFFF 


810 154 9 


0D6A 





0217 


1550 




STO 


2 


SKWDO-TB 


v ** 


81015500 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



20N0V72 
431337 
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SELECTOR CHANNEL 
ADDR REL OBJECT 

0D6B 42F5 

0D6C 1 08A0 

0D6D 1 0D97 

0D6E 1 0D7A 

0D6F C2 17 

0D70 F28D 

0J71 01 4C200D77 

0O73 42EC 

0D74 010E 

0D75 1 0D9A 

OD". 6 7003 



0D77 01 74FF0866 

0D79 70EF 

0D7A O 42EF 

007b O C2C2 

0D7C 01 4C160DAA 

0D7E O 42E9 

0D7F O00E 

OL/do 0019 

0093 FFFF 

0094 O 0008 

0095 O 0004 

0096 1 0696 



0D97 4200 

0096 O 100C 

0099 1 0D97 

009A 001E 

0DA9 O FFFF 
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DIAGNOSTIC/1800 












ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 




ID/SEONO 


1551 


* 










8101551 


1552 




BSI 


2 


SIO-TB 


GO DO THE START I/O 


8101552 


1553 




DC 




SIOXX 


IOCC ADDRESS 


81015530 


1554 




DC 




CSW23 


CSW COMPARE LIST 


81015540 


1555 




DC 




T23EN 


5RROR ACDRESS 


810155SC 


1556 


* 










81015560 


1557 




LD 


2 


SNWDO-TB 


GET DATA WORD 


81015S70 


1558 




EOR 


2 


TERM-TB 


* 


8101558 


1559 




BNZ 




T2305 


BR IF OATA XFERRED 


1101559C 


1S60 


* 










8101560 


1561 




BSI 


2 


EROUT-TB 


PRINT MESSAGE 


8101561 


1562 




DC 




/010E 




81015620 


1563 




DC 




T23M1 


MESSAGE ADDRESS 


81015630 


1564 




MDX 




T23EN 


END RTN 


8101564 


156S 


* 










81015650 


1566 


* 










81015660 


1567 


* 


GO TO NEXT ROUTINE 


IN SEQUENCE 


81015670 


1568 


* 










81015680 


1569 


T2305 


MDX 


L 


LPCNT.-l 


CJUNT LOOPS 


81015690 


1570 




MDX 




T2304 


LOOP 


61015700 


1571 


* 










8101571 


1572 


T23EN 


BSI 


2 


FREDV-TB 


FREE DEVICE 


8101572 


1^73 




LI 


2 


TRTNN-TB 


GET RTN NUMBER 


81015730 


1574 




BZ 




T2401 


GO TO NEXT RTN IN SEQ 


81015740 


1575 




BSI 


2 


CNTRL-TB 


GO TO CONTROL RTN 


8101.5750 


1576 


* 










81015760 


1577 


TTL23 


DMES 


1 


SECT 2 RT 


3- 'E 


81015770 


1578 




DMES 


1 


INCORRECT 


LNGTH (SLI OFFJ'E 


8101578 r> 


1579 




DC 




/FFFF 




81015790 


1580 


* 










8101S800 


l58i 


CCW23 


DC 




8 


PYTE COUNT 


8101581 


1 582 




OC 




0*2S6+OPSNS FLAGS AND OP CODE 


8101582 


1583 




DC 




S.JWDO 


ADDRESS 


81015830 


1564 


* 










3101584 


1585 


* 










81015850 


1 586 


CSW23 


DC 




/4200 


EXPECTED-CHAN STATUS 


8101586 


1587 




DC 




/100C 


-UNIT STATUS 


81015870 


1563 




DC 




CCW23+3 


-CSW ADDRESS 


8101588 


1589 


* 










81015890 


1590 


T23M1 


DMES 


1 


2303 DATA 


NOT XFERRED TO CORE'E 


81015900 


1591 


* 










8101591 


1592 




DC 




/FFFF 




8101592 


1593 


* 










81015930 


1594 


* 










8101594 


1595 


* 










81015950 


1596 


* 










81015960 


1597 


********************************************:>****** 


61015970 


1598 


* 








* 


8101598 


1599 


********** 


S***,;************************************ 


81015990 


1600 


T2401 


ECU 




* 


TEST INTRY POINT 


81016000 



OATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



20NOV72 
43133 7 



PROG ID 
PAGE 



081 0-1 
16A 



k 
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SELECTOR CHANNEL 
ADDR REL OBJECT 
0OAA 01 74010815 
0DAC 01 4C180DB1 
CDAE 9297 
0OAF 01 4C200DFF 



0DB1 
0DB2 



C283 

10' * 



0DB3 01 4C1000B7 
0DB5 4204 



00B6 1 
0DR7 



0DD5 
42F8 



0DB6 C2A1 
0DB9 02E7 
ODBA 42F2 



ODBB 01 65000DE9 
OOBD 01 6DO0O8AO 



ODBF 





C28D 


ODCO 





D217 


0DC1 





42F5 


0DC2 


1 


08A0 


0DC3 


1 


ODEC 


0DC4 


1 


ODD 3 



0DC5 C217 

0DC6 F28r> 

0DC7 01 4C200DCD 

0DC9 42EC 

ODCA 010E 

ODCB 1 ODEF 

ODCC 7003 



ODCD 01 74FF0366 
OOCF 70EF 



DI AGNOST 
ST. NO. 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 
162 5 

1626 

162 7 

1628 

1629 

1630 , 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 ! 

1640 

' 641 

1642 ' 

1643 

1644 

164S 

1646: 

1647 

1648 

1649 

1650 



I C/l 800 

LABEL OPCD FT OPERANDS 
L TRID.l 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



MDX 
BZ 
S 
BNZ 

* 

T2402 LD 
SLA 
BNN 
BSI 
DC 

T2403 BSI 

* 

LD 

STO 

BSI 



T2402 

2 Kl-TB 

T2501 

2 TSWO-TB 

OTTLE 

T2403 
2 TLGMS-TB 

TTL24 
2 STMLS-YB 

2 K100-TB 
2 LPCNT-TB 



BUMP RTN ID 

BR IF TEST NUMBER ZERO 
DECREMENT BY ONE 
BR IF NOT THIS TEST 

GviT OPTION S.VS 
PRINT TITLES 

BR IF NOT SET 
GO TO PRINT ROUTINE 
MESSAGE ADDRESS 

GO TO MONITOR 

SET U^> LOOP COUNT 

** 



2 GETDV-TB GET OEVICE FOR ROUTINE 

* 

* » 
************ e re********************!,*************** 

* 

* INCORRECT LNGTH (SLI ON) 

* 

***«*****,** »**»»***»****»» -»**t**»***»»»**»»***»»* 

* * 
*****************4*******»******»*, ********** ****** 



LDX LI CCW24 
STX LI SIOXX 



T2404 LD 
STO 

* 

BSI 
DC 

DC 
DC 

LP 
EOR 

bn; 
* 

BSI 
DC 
DC 
MDX 



2 TERM-TB 
2 SNUDO-Tb 

2 SIO-TS 
SIOXX 
CSW2 4 
T24EN 

? SNWDO-TB 

2 TERM-TB 

T2405 

2 EROUT-TO 
/010E 
T24M1 
T24EN 



SET CCW ADDRESS IN 10CC 

** 

SET UP DATA AREA=FFFr 
* *« 

GO DL THE START I/O 
IOCC ADDRESS 
CSW COMPARE LIST 
ERROR ADDRESS 

GET DATA WORD 
* 

BR IF DATA XFERRED 

PRINT MESSAGE 

MESSAGE ADDRESS 
END RTN 



GO TO NEXT ROUTINE IN SEQUENCE 



T2405 MDX L LPCNT.-l 
MDX T2404 



COUNT LOOPS 
LOOP 



PART NO. 2279464 
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ID/SEQNO 

8101601 O 

B1016020 

81016030 

81016040 

81016050 

81016060 

81016070 

81016080 

81016090 

81016100 

8101611 

81016120 

61016130 

81016140 

81016150 

81016163 

81016170 

81016180 

81016190 

810 I 620 

81016210 

(1101622 

81016230 

«! 1 62 4 

8101 JlbO 

81016260 

81016270 

810162 8 

81016290 

81016300 

810K 31 O 

81016320 

8101633 

<3101634u 

81016350 

81016360 

81016370 

81016380 

81015390 

81016400 

8101641 

81O16420 

81016430 

81016440 

81016450 

81016460 

81016470 

81016480 

^1016*90 

81016500 



15SEP71 
431328 



20NOV72 
431337 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



PART NO. 2279464 
PAGE 1 7A 



SELE 


CTO 


R CHANNEL 


DIAGNOSTIC/1800 












ADDR 


REL OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 




ID/'SEQNO 








1651 


# 










8101651 


ODDO 





42EF 


1652 


T24EN 


BSI 


2 


FREDV-TB 


FREE DEVICE 


8I016S2 


0DD1 





C2C2 


1653 




LD 


2 


TRTNN-TB 


GET RTN NUMBER 


81016530 


0DD2 


01 


4C180DFF 


1654 




BZ 




T2501 


GO TO NEXT RTN IN SEO 


81016540 


0DD4 





42E9 


1655 
1656 


* 


as I 


2 


CNTRL-TB 


GO TO CONTROL RTN 


61016550 
8 lOl 656 


ODDS 




OOOE 


1657 


TTL24 


Df..E£ 


1 


SECT 2.RT 


4- >E 


81016570 


ODOC 




0018 


1658 




DMES 


1 


INCORRECT 


LNGTH (SLI ONl'E 


81016580 


ODE 6 





FFFF 


1659 
1660 


* 


DC 




/FFFF 




81015590 
8101660 


00E9 





0008 


1661 


CCW24 


DC 




8 


BYTE COUNT 


8101661 


ODEA 





2004 


16*2 




DC 




FLSLI*256fOPSNS FLAGS AND OP CODE 


8101 662 


ODEB 


1 


0896 


1663 
1664 
1665 


* 

* 


DC 




SNWDO 


ADDRESS 


81OI6630 
810166* 
81016650 


ODEC 





4000 


1666 


CSW24 


DC 




/4000 


EXPECTED-CHAN STATUS 


8131 666 


ODEO 





100C 


1667 




DC 




/100C 


-UNIT STATUS 


6101C670 


OOEE 


1 


ODEC 


1668 
1669 


* 


DC 




CCW24+3 


-CSW ADDRESS 


81016680 
81QI6690 


ODEF 




001E 


1670 
1671 


T24M1 

* 


DMES 


1 


2403 DtJA 


NOT XFERRED TO CORE'S 


810I67O0 
8!0l6?l 


ODFE 





FFFF 


1672 
1^73 




DC 




/FFFF 




bl 01672 








* 










81C16730 








1 674 
1675 


* 










81016740 








* 










810*6750 








1676 


* 










81016760 








1677 


****<«.************** **.***»***************** v *»***,.» 


81016770 








1678 


* 








* 


810 1678 C 








1679 


***********«*******.********»«**»**»*»»*****,,,*,„„, 


81016790 


ODFF 


1 




1680 


T2 501 


EGU 




* 


TEST ENTRY POINT 


8 1 1 680 


ODFF 


01 


74010815 


1631 




MDX 


L 


TRID.l 


fc-JMP RTN ID 


6101681 


0E01 


01 


4C180E06 


1682 




BZ 




T2502 


BR IF TEST NUMBER ZERO 


8101682 


0E03 





9297 


1683 




S 


2 


Ki-TB 


DECREMENT BY ONE 


81016830 


0E04 


01 


4C200F4F 


1684 
1685 
1686 




BNZ 




T2601 


BR IF NOT THIS TEST 


81016840 


OEOb 





C283 


* 
T2502 


LD 


2 


TSWO-TB 


GET OPTION SWS 


81016650 
ft 101^86 


0E0 7 





100A 


1687 




SLA 




OTTLE 


PRINT Tl TLES 


81016673 


0E08 


01 


4C100EOC 


1698 




BNN 




T2503 


BR IF NOT SET 


8101 688 


OEOA 





4204 


1689 




BSI 


2 


TLGMS-TB 


GO TO PRINT ROUTINE 


810i«,390 


OEOB 


1 


0E2A 


1690 




DC 




TTL25 


MESSAGE ADDRESS 


S1016V0 


OEOC 





42F8 


1691 


T250 3 


BSI 


2 


STMLS-TB 


GO TO MONITOR 


8191691 


OEOD 





C2A1 


1 692 
1693 


* 


LD 


2 


K100-TB 


SET UP LOOP COUNT 


8101&920 
010 1693 


OEOK 





D2E7 


1694 




STO 


2 


LPCNT-TB 


** 


8} 01 694 


OEOF 





42F2 


1695 
1696 


* 


BSI 


2 


GETDV-TB 


GET DEVICE FOR ROUTINE 


81016950 
81016960 








1697 


*»»»»«t*«t» s4t «»**j*» t , ) , < ,„., t ,„,„ t , t , 4ttJ44<ttJt 


810i697 








1698 


* 








* 


81016980 








1699 


************* StStSttV***************-!*******,***.,,.,,* 


8101 699 








1700 


* 










81017300 



DATE 
EC NO. 



14N0V69 
431319 



30 JAN70 
431319A 



15SEP71 
431328 



20NOV72 
431337 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL 
ADDR REL OBJECT 



PART NO. 2279464 
PAGE 18 



0E10 01 65C 0E3B 
0E12 01 6U000OA0 



0E14 





C28D 


OE'5 





D217 


0E16 





42FS 


0E17 


1 


OBAO 


0E1B 


1 


0E3E 


0E19 


1 


0E25 



0E1A C217 

0E1B F2UD 

0E1C 01 4C18' E22 

0E1E 42EC 

0E1F 010A 

0E20 1 CE41 

0E2 1 7003 



0E22 01 74HF0666 

0E24 70EF 

0E2b O 42EF 

0E26 C2C2 

0E27 01 4C100E4F 

0E29 O 4 21 "9 

0E2A OOOE 

0E31 00 12 

0E3A O FFFF 

0E3J 0001 

GE3C 2804 

0E30 1 0896 



0E3E 4000 
0E3F O 100C 
OE40 1 0E3E 



0E4 1 



00 1 A 



DIAGNOSTIC/1800 












ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 




ID/SEONO 


1701 


* 


SKIP 


TEST 




6101701 


1702 


* 










81017020 


1703 


*************************************************** 


8101 7030 


1704 


* 








* 


81017040 


1705 


it************************ -*■***********»************ 


81017050 


1706 




LDX 


LI 


CCW25 


Sl£T CCW ADDRESS I:t 10CC 


810170 6 


1707 




STX 


LI 


S10XX 


** 


81017070 


1708 


* 










81017080 


1709 


T2504 


LD 


2 


TERM-TB 


SET UP DATA AREA=FFrF 


81017090 


1710 




STO 


2 


SNWD0- T C 


» ** 


81017100 


1711 


* 










8101711 


1712 




BSI 


2 


SIO-TB 


GO DO THE START I/O 


81017120 


1713 




DC 




SIOXX 


IOCC ADDRESS 


81017130 


1714 




DC 




CSW25 


CSV* COMPARE LIST 


81017140 


1715 




DC 




T2SEN ERROR ADDRESS 


81017150 


1716 


* 










81017160 


1717 




LD 


2 


iN»DO-TB 


GET DATA WORD 


81017170 


1718 




EOR 


V. 


TERM-TB 


¥ 


81017180 


1719 




BZ 




T2505 


BR IF NO DATA XrERRED 


81017190 


1720 


* 










BIO". 7200 


1721 




BSI 


2 


ERCUT-TB 


ORINT MESSAGE 


8101721 


1722 




DC 




/010A 




61017220 


1723 




DC 




T2SM1 


MESSAGE ADDRESS 


81017230 


1724 




MDX 




T2SEN 


END RTN 


A\ 01 72 4 


1725 


• 










61017250 


1726 


* 










81017260 


1727 


* 


GO TO NEXT ROUTINE 


IN SE0UENCE 


81017270 


1728 


* 










81017280 


1729 


T2'"0S 


MDX 


L 


LPCNT.-l 


COUNT LOOPS 


81017290 


1730 




MDX 




T25 4 


LOOP 


81017300 


1731 


* 










8101/31 


1732 


T25EN 


BSI 


2 


FKEDV-Tb 


FREE DEVICE 


81017320 


1733 




LD 


i; 


TRTNN-TB 


GET RTN NUMBER 


81017330 


1734 




t-Z 




T2601 


GU TO NEXT RTN IN SEQ 


81017340 


173b 




BSI 


2 


CNTRL-TB 


GO TO CONTROL RTN 


8101735 


1736 


* 










81017360 


1737 


TTL25 


DMES 


. 


SECT 2.HT 


5- 'E 


81017370 


1758 




DMFS 


1 


SKIP DATA 


TRANSFEREE 


B10173C0 


1739 




DC 




/FFFF 




81017390 


1740 


* 










81017400 


1 74 1 


CCW25 


DC 




1 


BYTE COUNT 


8101741 


1742 




DC 




/28*256-rOPSNS FLAGS AND OP CODE 


81017420 


1743 




DC 




SNMDO 


ADDRESS 


81017430 


1744 


* 










81017440 


1745 


* 










el017450 


1746 


CSW25 


DC 




/4000 


EXPECTED-CHAN STATUS 


810174 60 


1747 




DC 




/100C 


-UNI T STATUS 


8101 7470 


1748 




DC 




CCW25+3 


-CSW ADDRESS 


al0174bO 


1749 


« 










61017490 


1750 


T25M1 


DMES 


1 


2503 DATA 


XFERRED TO CORE'S 


0101 750 



ilATE 


14N0V69 


30JAN70 


15SEP71 


2 0N0V72 


£C NO. 


431319 


431319A 


43132 8 


431337 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELEC 
AODR 



TOR CHANNEL 
REL OBJECT 



0E4E FFFF 



0S4F 
0E4F 
0E51 
0E53 
0ES4 

0E56 
0E57 
0E58 
0E5A 
0E5B 
0E5C 

0E5U 
0E5E 
OfcbF 



01 740 10815 

01 4C160E56 

9297 

01 4C200E8F 

C283 

100A 

01 4C100E5C 

4204 

1 0E7C 
42F8 

C2A1 

O U2E7 

42F2 



0E6O 
0E62 

0E64 
0E65 
0E66 
0E67 



0E68 
0E6A 



01 65000E65 

01 6D0006A0 

fc 42F5 

1 OBAO 

1 0E8B 

1 0E6B 



01 74FF0866 
C 70F9 



0E6B O 42E* 



DI AGNOST 
ST. NO. 
1751 
1752 
1753 
1754 
1755 
17S6 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1765 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
179M 
1799 
1800 



IC/1800 

LABEL OPCD FT OPERANDS 



DATE 
EC NO. 



14N0V69 
431319 



30JAN7 
431319A 



DC 



/FFFF 



*************************************************** 

» * 

T2601 EQU * 

MDX L TRID.l 

BZ T2602 

S 2 Kl-TB 

BNZ T2701 



TEST ENTRY POINT 
BUMP RTN ID 
BR IF TEST NUMBER ZERO 
DECREMENT BY ONE 
BR IF NOT THIS TEST 



2 TSWO-TB 

OTTLE 

T2603 
2 TLGMS-TB 

TTL26 
2 STMLS-TB 



GET OPTION SWS 
PRINT TITLES 

BR IF NOT SET 
GO TO PRINT ROUTINE 
MESSAGE ADDRESS 

GO TO MONITOR 



2 K100-TB 
2 LPCNT-TB 
2 GETDV-TB 



SET UP LOOP COUNT 

** 

GET DEVICE FOR ROUTINE 



T2602 LD 

SLA 

BNN 

BSI 

DC 
T2603 BSI 
* 

L_> 

STO 

BSI 
* 
************************************************** 

* * 
***********»»**************"************************ 

v 

* PROGRAM CONTROL INTERRUPT 

* 

****., >|r»****es*v****«****************** ****** ******* 

* * 
♦$************************************************* 



LDX LI CCW26 
STX LI SIOXX 



T2">04 BSI 
DC 
DC 
DC 



2 SIO-TB 
SIOXX 
CSW26 
T26EN 



SET CCW ADDRESS IN IOCC 
** 

GO DO THE START I/U 
IOCC AODRESS 
CSW COMPARE LIST 
ERROR ADDRESS 



GO TO NEXT ROUTINE IN SEQUENCE 



MDX L LPCNT.-l 
MDX T2604 



T26EN BSI 



2 FREDV-TB 



COUNT LOOPS 
LOOP 



FR^E DEVICE 



PART NO. 2279464 
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ID/SEONO 

8101751 

8101752 

81017530 

8101 754 

8101755? 

B1017560 

81017570 

810 1 758 

31017590 

81017600 

8 1017610 

8101762 

81017630 

81017640 

81U17650 

81017660 

81017670 

8101 768 

81017690 

81017700 

8101771 

8101772 

81017730 

8101 774 

81017750 

81017760 

81017770 

8101778O 

81017790 

81017800 

81017810 

8101732 

81017830 

81017840 

81017850 

8101 7860 

81017870 

81017880 

81017890 

81017900 

81017910 

810 1792 

81017930 

8101794 

al017950 

ai017960 

81017970 

81017980 

81017990 

8101800 



15SEP71 
431328 



20NOV72 
431337 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL 
AODR REL OBJECT 
0E6C C2C2 
0E6D 01 4C180E8F 
0E6F C 4 2E9 

OE70 OOOE 
OE *7 00 19 
0E64 FFFF 

0E85 000 1 
0E66 5003 
0E87 1 0E88 



0E88 O 0001 
0E89 2003 
0E8A 1 0E8B 



0E8' 6000 

0E8C OOOC 

0E8D 1 0E86 

0E8E 0000 



0E8F 4^E9 



0E90 
0E91 

0E92 
0E93 01 
0E95 
0E96 01 
0E98 
0E99 



0003 
0003 

C2C2 

4C180E9A 

90FB 

4CJ009D2 

80F8 

7000 



DI AGNOSTI 
ST. NO. 
1801 
1802 
1803 
1804 
1605 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
181* 
1815 
1816 
1817 
1818 
1819 
1820 
1621 
1822 
1823 
1824 
1825 
1826 
1627 
1826 
1829 

18 :■>«} 

1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1647 
1843 
1649 
1850 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



C/1800 

LABEL OPCD FT OPERANDS 

LO 2 TRTNN-TB GET RTN NUMBER 

bZ T2701 GO TO NEXT RTN IN SEQ 

BSI 2 CNTRL-TB GO TO CONTROL RTN 

* 

TTL26 DHES 1 SECT 2.RT 6- «E 

OMES 1 PROGRAM CONTROL INTERRUPT'E 



DC 



CCW26 DC 
DC 



DC 
DC 
DC 



CSW26 DC 
DC 

DC 
DC 



/FFFF 

1 BYTE COUNT 

/50«^56+OPNOP FLAGS AND OP CODE 
• ADDRESS 



1 BYTE COUNT 

FLSLI*256+0PN0P FLAGS AND OP CODE 
* ADDRESS 



/6000 EXPECTED-CHAN STATUS 

/OOOC -UNIT STATUS 

CCW26+6 -CSrf ADDRESS 

-BYTE COUNT 



si********************************-!;*************-.''** 

* * 

*************************************************** 

* SECTION END 

* 

T270I BSI 2 CNTRL-TB GO TO CONTROL HTN 

*************************************************** 

* * 

*************************************************** 
* 

* SECTION PREFACE 



T30PR DC 
DC 

* 

T30NT LD 
BZ 
S 

BP 
A 
MDX 



/0003 
3 



SECTION NUMBER 



2 TRTNN-TB SW FNC 1 BITS 12-15 

T3101 6R IF RUN ALL RTNS 

T30PR+1 TEST FOR VALID 

TCNER BR IF INVALID RTN NUMBER 

T30PR+1 RESTORE RTN NUMBFH 

T3101 GO TU FIRST RTN 



************************************************** 

. * 

St************************************************* 
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ID/SEQNO 
8101801 
81018020 
81018030 
81018040 
81016050 
81018060 
81018070 
81016080 
81018090 
81018100 
8101611 
81018120 
81018130 

a;oi8i40 

61018150 

61018160 

81018170 

81018180 

81018190 

81018200 

8)01821 O 

8 3' 822 

81018230 

81013240 

81018250 

81016250 

81018270 

61018260 

e<016290 

81010300 

6101831 

81016320 

8101833 

61018340 

81018350 

81018360 

81018370 

81018380 

81018390 

81018400 

8101841 

81018420 

81018430 

81018440 

81018450 

B101b460 

81018470 

8)018<-60 

ei0184<JO 

81018500 



15SEP71 
431328 



2 0NOV72 
431337 
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SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



PART NO. 22 79464 
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SELECTOR CHANNEL 
AODR REL OBJECT 



0E9A 1 

0E9A 01 74C1081S 

0E9C 01 4C160EA1 

0E9E 9297 

0E9F 01 4C200EE2 

0EA1 C283 

0EA2 100A 

0EA3 01 4C10CEA7 

0EA5 420« 

0EA6 1 0EC8 

0EA7 42F8 

OEAb C2A1 

0EA9 D2E7 

OEAA 42F2 



OEAB CI 65000EDB 

OEAD 01 6D0006AO 

OEAF 01 C40008A1 

0EB1 18D8 



0EB2 
0EB3 



F2BE 
16C8 



0EB4 01 040006A1 

0EB6 C20E 

0EB7 D2E6 

0EB8 F28D 

0EB9 D2DE 

OEBA 42F5 

OEBB 1 08A0 

OEBC 1 OEDE 

OEBD 1 0ED6 



OEBE O 
OEBF O 



C2E6 
D2DE 



DI AGNOST 
ST. NO. 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1660 
1661 
1862 
1863 
1864 
1865 
1866 
1667 
1668 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1380 
1881 
1882 
1863 
1884 
1885 
1886 
1887 
1888 
1839 
1890 
1691 
1692 
1693 
1694 
1695 
1896 
1897 
1898 
1899 
1900 



DATE 

EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



IC/1800 

LABEL OPCD FT OPERANDS 

*************************************************** 
* * 

**********#*************#***************v********** 



T3101 EOU 
MDX 
BZ 
S 
BNZ 

* 

T3102 LO 
SLA 
BNN 
BSI 
DC 

T3103 BSI 



L TRID.l 
T3102 
2 Kl-TB 
T3201 

2 TSWO-TB 

OTTLE 

T3103 
2 TLGMS-TB 

TTL31 
2 STMLS-TB 



TEST ENTRY POINT 
BUMP RTN ID 

BR IF TEST NUMBER ZERO 
DECREMENT eY ONE 
BR IF NOT THIS TEST 

GET OPTION S»S 
PRINT TITLES 

BR IF NOT SET 
GO TO PRINT ROUTINE 
MESSAGE ADDRESS 

GO TO MONITOR 



LD 

STO 

BSI 



2 KlOO-Tb 
2 LPCNT-TB 
2 GETDV-TB 



SET UP LOOP COUNT 

** 

GET DEVICE FO'i ROUTINE 

* 
*:<******:•.;**.,•.*****:):********************************* 

* * 
****************************** ********************* 
* 

* NOT OPERATIONAL TEST 
* 
******************9**S************.-J ********** ****** 

* - 
******************* i *************** **************** 



LDX LI CCW31 

STX LI SILXX 

LD L SIOXX+1 

RTE 24 

ECR 2 HFFOO-TB 

RTE 8 

STO L SIOXX+1 



Til04 LD 
STO 
EOR 
STO 

* 

BSI 
DC 
DC 
DC 

* 

LD 
STO 



2 DVADR-TB 

2 SPROT-TB 

2 TERM-TB 

2 DVADR-TB 

2 SIO-TB 
SIOXX 
CSW31 
T3105 

2 SPROT-TB 
2 DVADR-TB 



SET CCK ADDRS l\ IOCC 

* 

GET IOCC SECOND word 

SAVE AREA CODE AND FUNC 

INVERT UNIT ADDRS 

RESTORE WORD 

REPLACE 

GET DVC ADDRS 

SAVE 

INVERT 

REPLACE 

GO DO SIO 
IOCC ADDRS 

EXP CSW ADDRS 

ERROR RETURN 

RESTORE DVC ADDRS 



ID/SEQNO 
8101851 O 
81016520 
S1018530 
81018540 
81016550 
81018560 
81016570 
81018580 
81018590 
8101 860 
8101661 C 
8101862 
81018630 
81018640 
31016650 
81018660 
81016670 
81018680 
81018690 
81018700 
3101871 
810 18/2 
81018730 
8101874 
81018750 
81018760 
81018770 
810.878 
8101879C 

aioieeoo 

8.01681 
8101862 
81018830 
81018840 
81016850 
81016660 
81016870 
81018880 
81016890 
81018900 
81018910 
81018920 
81016930 
81016940 
81018950 
81018960 
81018970 
8101898 
81018990 
6101900 C 



15SEP71 
431328 



20NOV72 
431337 



PROG ID 
PAGE 



081 0-1 
19A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL 
ADDR REL OBJECT 



0EC0 1 74FF0866 
0EC2 70F3 

0EC3 42EF 
0EC4 C2C2 
0EC5 01 4C180EE2 
0EC7 42E9 



0EC8 




OCOE 


OECF 




OOOF 


0ED7 





FFFF 


0E08 





C2E6 


0ED9 





D2DE 


OEDA 





70E8 


OEDb 





0001 


OEDC 





0003 


OEDD 


1 


OEDE 


OEDE 





8000 


OEOF 





0003 


OEEO 


1 


OEDE 


OEE1 





0000 



0EE2 1 

0EE2 01 74010U15 

0EF4 01 4Cly0ht:9 

0£E6 9297 

0EE7 01 4C200F3C 



OEfcy 
OEEA 
OEEb 



DO06 
C2U3 
1009 



OEEC 01 4C100EF1 
OEEE C001 
OEEF 704C 



OEFO 

0EF1 

0EF2 

0EF3 01 

0EF5 

0EF6 1 



0000 

C283 

100A 

4C100EF7 

4204 

OF 12 



DIAGNOST 
ST. NO. 
1901 
1902 
1903 
19C4 
190S 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
K 30 
1 >3l 
1932 
1933 
1934 
1935 
1 ;36 
1937 
193o 
1939 
1940 
1941 
1942' 
1943 
194» 
1945 
1946 
1947 
1946 
19-49 
I960 



I C/ 180 
LAbEL 



OPCD FT OPERANDS 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



GO TO NEXT ROUTINE IN SEQUENCE 



TTL31 



MDX 
MDX 

bSI 

LI) 
BZ 

as I 

DMES 
DMES 
DC 



T3105 LD 

~,T0 



LPCNT.-l COUNT LOOPS 
T3104 LOOP 

FREDV-T8 FREE DEVICE 

TRTNN-TB GET RTN NUMBER 

T3201 GO TO NEXT RTN IN 

CNTRL-Tb GO TO CONTROL RTN 

SECT 3.RT 1- «E 
NOT OPERATIONAL 'E 
/FFFF 

SPROT-TB 
OVACR-Tb 
T31LN 



CCW31 



CSW31 



DC 
DC 
DC 



DC 
DC 
DC 
DC 



1 BYTE COU.-IT 

0*256+0PNOP FLAGS AND CP CODE 
» AODRESS 



/8000 
/0003 
CCW31+3 




EXP CS 
US 

ADDRS 
BYTE COUNT 



♦ * 



T320 1 EOU 

MDX 

bZ 

S 

bNZ 

* 

T3202 STO 
LD 
SLA 
BNN 
LD 
B 

* 

T32XX DC 
LD 
SLA 
BNN 
BSI 
DC 



TRID.l 
T3202 
Kl-TU 
T3301 

T32XX 

TSWO-TB 

ObCRT 

T32XX+I 

T32XX 

T3301 



TSWO-TB 

OTTLE 

T3203 

TLGMS-T6 

TTL32 



TEST ENTRY POINT 
BUMP RTN ID 
BR IF TEST NUMBER ZE 
DECREMENT BY ONE 
BR IF NOT THIS TEST 

SAVE RTN NUMBER 
GET OPTION SWS 
BYPASS ROJTINE 
BR IF NO 

RESTORE RTN NUMBER 
GO TO NEXT RTN 

RTN NUMBER 

GET OPTION SWS 

PSINt TITLES 

BR IF NUT SET 
GO TO PRINT ROUTINE 
MESSAGE ADDRESS 



PART NO. 2279464 
PAGE 2 



ID/SEQNO 

8101901 

81019020 

81019030 

81019040 

81019050 

81019060 

81019070 

31019080 

S1019090 

81019100 

31019: 1 

81019120 

81019130 

81319140 

810191S0 

81019160 

8S019170 

81019180 

81019190 

81019200 

(3101921 

91 1922 

81019220 

81019240 

61019260 

81019260 

81019270 

61019280 

81019290 

al 019300 

8101931 O 

61019320 

8 101933 

ij 10 19340 

81019350 

61019360 

81019370 

81019330 

81019390 

81019400 

8101941 

81019420 

81019430 

ol019440 

81019450 

81019460 

61019470 

61C194SC 

8 1 1949 

81019500 



15SEP71 
431328 



2 0N0V72 
431337 



PROG ID 
PAGE 



08 1 0- 1 
20 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE leOO SYSTEM 
SELECTOR CHANNEL CrF-LINE DIAGNOSTIC 



PART NO. 22 79464 
PAGl£ 2 0A 



SELECTOR 
ADDR REL 
0bF7 O 

0EF8 
0EF9 O 
OEFA 



CHANNEL 
OBJECT 
42F8 

C2A1 
D2E7 
42F2 



OEFB 01 
OEFD 01 

OEFF O 

OF 00 1 

OF 01 1 

0FO2 1 

OF 03 

OF 04 1 

0F0=> 1 

OF 06 1 

0F07 O 
0F08 01 



65000F25 
6D0008A0 

42Fb 
08A0 
0F36 
OFOD 

42F5 
069E 
0F3A 
OFOD 

C2 1 7 
4C100F21 



OFOA 01 
OFOC 



OFOD 

OFOE O 

OFOF 01 

OF 11 

OF 12 
0F19 

0F2O 



OF 21 
0F22 
0F23 



74FF0866 
7 OF 2 

42EF 
C2C2 

4C160F3C 
42E9 

OOOE 
OOOE 
FFFF 

42EC 
010B 
0F28 



DIAGNOST 
ST. NO. 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
198 1 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
19T9 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



GO TO MONITOR 
SET UP LOOP COUNT 



IC/1800 

LABEL OPCD FT OPERANDS 

T3203 BSI 2 STMLS-TB 
* 

LD 2 K100-TB 

STO 2 LPCNT-Tb ** 

BSI 2 GETDV-TB GET DEVICE TOR ROUTINE 

* 
*************************************************** 

* * 

* 

* COMMAND REJECT 

*»*4*****#****#****#********** ****** ******* ******** 

* 
**»*******************************************"■**** 



LDX LI CCW32 
STX LI SIOXX 



T3204 BSI 
DC 
DC 
DC 

* 

BSI 
DC 
DC 
DC 

4 

LD 
BNN 



2 SIO-TB 
SIOXX 
CSW32 
T32EN 

2 SIO-TB 
SENSE 
CSW32+4 
T32EN 

2 SNWDS-TB 
T3205 



SET CCW ADDRS IN IOCC 



GO DO SIO 
IOCC ADDRS 
EXP CSW ADDRS 
ERROR RETURN 

DO SIO TO 

* GET SENSE INFO 



GET SENSE WORD 
BR IF CMD REJ NOT SET 



GO TO NEXT ROUTINE IN SEQUENCE 



MDX L LPCNT.-l 
MDX T3204 



COUNT LCOPS 

LOOP 



T32EN BSI 2 FREDV-TB 

LD 2 TRTNN-TB 

BZ T3301 

BSI 2 CNTRL-TB 
* 

TT^32 DMES 1 SECT 3.RT 2- "E 

DMES 1 COMMAND REJECTEE 

DC /FFFF 



FREE DEVICE 
GET RTN NUMBER 

GO TO NEXT RTN IN SEO 
GO TO CONTROL RTN 



T3205 BSI 
DC 
DC 



2 EROUT-TB 
/010b 
T3206 



15SEP71 
431328 



20N0V72 
431337 



ID/SEQNO 

81019510 

810195? O 

81019530 

8101954 

91019550 

81019560 

31019570 

81019580 

81019590 

81019600 

81019610 

8101962 O 

81019630 

8101964 

81019650 

8101966 

81019670 

81019660 

81019690 

81019700 

81019710 

8101972 O 

81019730 

81019740 

81019750 

8101 976 

81019770 

8101978 

61019790 

81^19800 

81019810 

8101982 O 

81019830 

81019840 

81019850 

81019860 

81019870 

eioi9eeo 

81019890 
81019900 
81019910 
81019Q2 
81019930 
81019943 
81019950 
8 101 '-96 
81019970 
81019980 
8101^990 
r 1020000 



PROG ID 
PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL 
ADDR REL OBJECT 
0F24 70E8 



0F25 0001 
0F26 O OOFF 
0F27 1 0896 



0F2F 0019 

0F3S> FFFF 



0F36 





AOOO 


0F37 





0002 


0F38 


1 


0F28 


0F39 





0000 


0F3A 





OVOO 


0F3B 





F.^00 



0F3C 1 

0F3C Ol 71010315 

CF3E 01 4C1O0F43 

0F40 O 929' 

0F41 01 4C200FD1 



0F43 O 
0F44 



C2fc>3 
1C0A 



0F4b 01 4C100F49 



0F47 O 
0F48 1 
0F49 O 



4204 
0FS1 
42F8 



0F4A O C2A1 
0F4b O D2t7 
0F4C O 42F2 



0F40 01 65000C26 
0F4F 01 6D0008AO 
0F51 01 6C00083F 



DI AGNOSTI 
ST. NO. 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2003 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
20 16 
2017 
20X8 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2' 40 

2041 

20 42 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

20 50 



C/1800 
LABEL OPCD FT OPERANDS 
MDX T32EN 



CCW32 DC 
DC 
DC 



T3206 DMES 
DC 

* 

CSW32 DC 
DC 

DC 
DC 

* 



1 BYTE COUNT 

0*256+/FF FLAGS AND OP ODE 
SNWDS ADDRESS 



1 3203 COMMAND REJ NOT SET«E 

/FF r -r 



/4000 
/0002 
CCW32+3 




EXP CS 
US 

ADDRS 
BYTE COUNT 



EXP CSW FOR SENSE SIO 
DC *-* 
DC /FOOO 

* * 



T330 1 EOU 
MDX 
BZ 
S 
BNZ 

* 

T3302 LD 
SLA 
B.MN 
BSI 
DC 

T3303 BSI 

* 

LD 
STO 

as i 



L T h I D . I 
T3302 
2 Kl-TB 
T3401 

2 TSWO-'fB 

OTTLE 

'3303 
2 Tl.OMS-Tb 

TTL33 
2 STMLS-TU 

2 K100-TB 
2 LPCNT-TB 
2 GtTDV-Tfi 



TEST CNTRY POINT 
HUMP RT.M ID 

BR IF TtSl NUt- "it« ZERO 
OEChcHENT DY Ufit 
faR IF NOT iHir TEST 

GET OPTION SW5 
PRINT TITLCS 

BR ir NOT St-T 
GT TO PWIHT ROUTINE 

KESSAGE ADDRESS 
GO TO MOM I TOW 

SET UP LOOP COUNT 

GET DEVICE FOR ROUTINE 



* * 

* 

* HALT I/O TEST 

* 

* * 

T3300 LDX 1 1 CCVvlB ADDR OF SENSE CCW 



STX L) SIOXX 
STX L ERTSW 



PLACE IN SIO 

SET EARLY RETURN SWITCH 



PART NO. 2279464 
PAGE 21 



ID/SEONO 

6102001 

81020020 

81020030 

81020040 

81020050 

81020060 

81020070 

81020080 

81020090 

81020100 

8102011 

81020120 

81020130 

81020140 

81020150 

81020160 

81020170 

R1020180 

81C20190 

rtl020^00 

8102021 

810202i_ ) 

81020230 

O1020240 

61020200 

H1020260 

81020270 

810202«0 

810202" 

81020300 

8102031 

81020320 

81020330 

81020340 

81020350 

81020360 

81020370 

61020380 

81020390 

H1020400 

8102041 

81020420 

81020430 

81020440 

81030450 

81020460 

c-10204'0 

81020480 

810204,0 

81020500 



DATE 14N0V69 30JAM70 15SEP71 20N0V72 
EC NO. 431319 431319A 431328 431337 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELEC 

ADDR 

0F53 

0F54 

0FS5 

0F56 

0F58 

0F5A 

0F5C 

OFSO 

0F5E 

0F5F 



TOR CHANNEL 
REL OBJECT 

42F5 

1 08A0 
O 1000 

1 65000FCA 
CI 6D0008AO 

01 6C00083F 
C29D 

O D070 
O 1010 
D070 



0F60 O 
0F61 1 



OF 62 
0F63 
OF 64 
0F65 
OF 66 
0F67 



4 2FG 
08A0 

6132 
71FF 
70FE 
0A25 
D22F 
1007 



0F68 01 4C100FBD 
0F6A O 6865 
0F6B 01 6C00083F 



0F6D 





42F5 


0F6E 


1 


089C 


0F6F 





6132 


0F70 





71FF 


0F71 





70FE 



0F72 0A25 

0F73 O D22F 

0F74 O 1007 

0F75 01 4C280F8D 



0F77 01 74FF0866 
0F79 70D3 



0F7A 

0F7B 

0F7C 

OF 70 



C299 
D052 
42EF 
C2C2 



0F7E 01 4C180FD1 
0F80 42E9 



0F81 
0F88 



OOOE 
0008 



DI AGNOST 
ST. NO. 
2051 
2052 
2053 
2054 
2055 
2C56 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2066 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2C79 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



IC/1800 

LABEL 



T3304 



OPCD FT OPERANDS 



BSI 

DC 

NOP 

LDX 

STX 

STX 

LD 

STO 

SLA 

STO 



2 SIO-TB 
SIOXX 

LI CCW33 

LI SIOXX 

L ERTSW 

2 K8-TB 

CCW33+4 

16 

T33X 



GO DO SENSE 



SET CCW ADDRS I TJ IOCC 



SET EARLY RETURN SW 
INITIALIZE TIC CCW 



CLEAR CHANNEL BUSY SW 



* 
T3305 



BSI 2 SIO-TB GO DO SIO 

DC SIOXX IOCC ADDRS 

EARLY RETURN COMES HElic 

LDX 1 50 

MDX 1 -1 

MDX T3305 

XIO 2 SCSN1-TB 

STO 2 SCSXO-TB 

SLA SCABZ 

BNN T3308 

STX T33X 

STX L ERTSW 



GET CHANNEL STATUS 

SAVE 
CHANNEL SB BUSY 
BR IF NOT 

SET CHANNEL BUSY SW 
SET EARLY RETURN SW 



T33G0 BSI 2 SIO-TB 

T33CK DC HIOXX 

« EARLY RETURN COMES HERE 

LDX 1 50 

T3306 MDX 1 -1 

MDX T3306 
* 

XIO 2 SCSN1-TB GET CHANNEL STATUS 

STO 2 SCSXO-TB SAVE 

SLA SCABZ CHANNEL SHOULD NOT BE BUSY 

BN T3308 BR IF IT IS BUSY 



» 
T3307 



T33EN 



GO TO NEXT ROUTINE IN SEQUENCE 

MDX L LPCNT.-l COUNT LOOPS 

MDX T3300 LOOP 

L 2 K3-TB SET TIC = NO-OP 

STO CCW33+4 * 

BSI 2 FREDV- TB FREE DEVICE 

LD 2 TRTNN-TS GET RTN NUMBER 

BZ T3401 GO TO NEXT RTN IN SEQ 

BSI 2 CNTRL-TB GO TO CONTROL RTN 



* 
TTL3 3 



DMES 1 SECT 3.HT 3- 
DMES 1 HALT I/O'E 



PART NO. 2279464 
PAGE 21A 



ID/SEONO 
8102051 
8102052 
81020530 
8102«540 
81020550 
81020560 
81020570 
81020530 
81020590 
81020600 
6102061 
1102062 
81020630 
81020640 
81020650 
81020660 
81020670 
81020680 
81020690 
61020700 
81020710 
8102072 
81020730 
81020740 
81020750 
81020760 
8102O770 
81020780 
61020790 
8102080 i 
8102081 
81020820 
81020830 
81020840 
81020950 
81020860 
81020870 
81020880 
81020890 
81020900 
8102091 
8102092 
P1020930 
81020940 
81020950 
81020960 
81020970 
81020900 
810209 '0 
81021000 



15SEP/1 
431328 



20N0V72 
4 3 1 33 7 



PROG ID 
PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYS1EM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



PART NO. 2279464 
PAGE 22 



SELECTOR CHANNEL 


DIAGNOSTIC/1800 










ADDR 


REL OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


Q^ERANOS 


ID/SEQNO 


0F8C 





FFFF 


2101 
2102 


* 


DC 




/FFFF 


8102101 
81021020 


0F8D 





0A29 


2103 


T33C8 


XIO 


2 


SCSN3-TB 


81021030 


0F8E 





D230 


2104 




STO 


2 


SCSXO+l-TB 


81021040 


0F8F 





0A2B 


2105 




XIO 


2 


SCSN4-TB 


ai02i0uO 


0F90 


n 


D231 


2106 




STO 


2 


SCSX0+2-T9 


81021060 


OF 91 





0A2O 


2107 




XIO 


2 


SCSN5-TB 


81021070 


0F92 





D232 


21 08 
2109 


* 


STO 


2 


SCSX0+3-TB 


81021080 
81021090 


OF 93 


01 


74000FDO 


2110 




MDX 


L 


T2-JX TEST I? CHANNEL BUSY 


81021100 


OF 95 





7004 


21 1 1 




MDX 




T3309 BR IF BUSY 


81021 1 1 


Or 96 





42EC 


2112 




BSI 


2 


ERQUT-TB 


81021120 


0F97 





010A 


2113 




DC 




/010A 


81021130 


OF 98 


1 


0F9E 


2114 




DC 




T330A 


81021140 


0F99 





70E2 


2115 
2116 


* 


MDX 




T33EN END ROUTINE 


81021 150 
81021160 


0F9A 





42EC 


2117 


T3309 


BS! 


2 


EPOUT-TB 


31021 170 


0F9B 





010A 


21 18 




DC 




/010A 


81021180 


0F9C 


1 


0FB5 


2119 




DC 




T330B 


81021 190 


OF ID 





70DC 


2120 
2121 


« 


MDX 




T3307 


81021200 
3102121 


0F9E 




0020 


2122 


T330A 


DMES 


1 


3303 CHANNEL DIDN^'T GO BUSY ON ■ 


81021 '20 


OFAE 




oooc 


2123 




DMES 


1 


TIC TO SENSE" E 


810^1230 


0FB4 





FFFF 


2124 
2125 


* 


DC 




/FFFF 


81021240 
"1021250 


OFBb 




0024 


2126 


T330B 


DMES 


1 


3303 CHANNEL STILL BUSY AFTER HALT ' 


81021260 


01 Z7 




0003 


2127 




DMES 


1 


i/ou-: 


81021270 


0FC9 





FFFF 


2128 
2129 


* 


DC 




/FFFF 


81021280 
81021?90 


OFCA 





0001 


21 30 


CCW33 


DC 




1 BYTE COUNT 


81021 300 


OFCB 





6004 


2131 




DC 




/60-S2S6 + OPSNS FLAGS AMD OP CODE 


S102131 


OFCC 


1 


0896 


2132 
2133 
2134 


* 
* 


DC 




SNWDO ADDRESS 


81021320 
810213^0 
81021340 


OFCD 





0001 


2135 




DC 




1 e:yte COUNT 


81021350 


OFCE 





0008 


2136 




DC 




0*256+0PTIC FLAGS AND OP CODE 


81021360 


OFCF 


1 


OFCA 


2137 
2138 
2139 


* 

* 


C 




CCW33 ADDRESS 


81021370 
61021380 
81021390 


OFDO 





0000 


2140 


T33X 


DC 




*-* CHANNEL BUSY SW (RTN 33) 


81 or 140 








2141 


****************,*******************#********¥****** 


8102141 








2142 


* 






* 


81021420 








2143 


********** 


*********** ****************************** 


81021430 








2144 


* 








610^1440 








2145 


* 


SECTION 


END 


610' 1450 








2146 


* 








81021 460 


0FD1 





42E9 


2147 


T3401 


BSI 


2 


CtiTRL-TB GO TO CONTROL RTN 


81021470 








2148 


********** 


*^-. * 


*********************#** + *********:**** 


810111480 








2149 


* 






* 


8 102) 490 








2150 


************* 


*********************************<****# 


81021 500 



DATE 14N0V69 30JAN70 15SEP71 20NOV72 

EC NO. 431319 431319A 431328 431337 



PROG ID 
PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



081 0-1 
22 



<«■«>. Ml 



SELECTOR CHANNEL 
ADDR REL OBJECT 



0FD2 
0FO3 



0004 
0000 



0FD4 C2C1 
0FD5 01 4C180FDF 



0FD7 
0FD8 01 
OFDA 
OFDB 01 
OFOD 
OFOE O 
OFDF 
OFEO 1 
0FE1 01 
0FE3 
0FE4 00 



C2C2 

4C180FF 1 

90F3 

4C3009D2 

8 OF 5 

7012 

4204 

0FF6 

74010861 

1000 

4C80012E 



OFE6 0011 

OFEF FFOO 
OFFO FFFF 



OFFI 42E9 



CFF2 42F8 
0FF3 00 44800131 



0FF5 
0FF6 
OFF 7 
0FF8 



0FF2 
0814 
08E9 
080C 



C F9 01 2C400865 
OFFB C2B1 



DI AGNOST 
ST. NO. 
2151 
2152 
21 S3 
2154 
21 55 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2 172 
2173 
2 174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 



DATE 
EC NO. 



14 NOV 69 
431319 



30 JAN70 
431319A 



IC/1800 

LABEL OPCD FT OPERANDS 



SECTION NUMBER 



SECTION PREFACE 



T40PR DC /0004 

DC 

* 

T40NT LD 2 TSCTN-TB 

BZ T40EN 

* 

LD 2 TRTNN-TB SW FNC 1 BITS 12-15 

9Z T4101 BR IF RUN ALL RTNS 

S T40PR+1 TEST FOR VALID 

BP TCNER BR IF INVALID RTN NUMBER 

A T40PR+1 RESTORE RTN NUMBER 

MDX T4101 GU TO FIRST RTN 

T40EN BSI 2 TLG'IS-TB PRINT END OF TEST MSG 

DC T40ER 

MOX L PSCNT.l BUMP PASS CNTR 

NOP IN CASE OF SKIP 



BSC I ENf. 



GO TO MONITOR END 



T40ER DMES 1 ** END OF OFT **'E 
DC /FFOO 
DC /FFFF 

* i**:*********************************************^* 

* * 

3*************** 1 !******************** ************** 

* 

*************************************************** 

* * 

**JB****S!************V****************************** 

* 

* SECTION END 

* 

T410 1 BSI 2 CNTRL-TB GO TO CONTROL RTN 

*****************»***********it ********************* 

* * 

* Si**-********************************************** 



GTDVE EOU * 

* 

GTDV1 BSI 2 STMLS-TB 

BSI I REODV 

DC GTDV1 

DC TSCED 

DC TSCAC 

DC TERM 



GET DEVICE ROUTINE 



BUSY RETURN 

SEL CHN EOIT 

SEL CHN AREA CODE 

TERMINATOR 



STS L SPROTt/40 RESET STOP PROT BIT 
LD 2 H0400-TB 3UILD HALT I/O IOCC 



■i ■miiMmi<iii-iim i mi ■■on n ,. 

f f <T i 



PART NO. 2279464 
PAGE 22A 



ID/SEQNO 
81021510 
81021520 
81021530 
81021540 
81C21550 
81021560 
81021570 
81021580 
81C21590 
81021600 
81021610 
8 1 2 1 62 
81021630 
81021640 
81021650 
61021660 
81021670 
81021680 
81021690 
tf 1021 700 
81021 71 
81021 72 
81021730 
8102174 
81021 750 
81021760 
81021 770 
8 1C 21 78 
81021790 
8 1021 '.-0 
8 1021 j 10 
81021 82 
81021830 
8102184 
31021850 
81021860 
81021870 
81021860 
81021890 
81021900 
81021910 
81021920 
81021930 
81021940 
81021950 
8 1021 960 
81021970 
81021980 
81021990 
8102 JOOO 



15SEP71 
431328 



20N0V72 
431337 



PROG ID 
PAGE 



Obi 0-1 
22A 



© 

m 

* 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL 
ADDR REL OBJECT 
OFFC EA6A 
OFFO O EADE 
OFFE D21E 

OFFF O EAAF 
IOC D222 

1001 D21C 

1002 O D220 



1003 





C2B3 


1004 





EA6A 


1005 





1B08 


1006 





1008 


1007 





829B 


1008 


C 


D22E 


1009 


-. 


8298 


100A 


1 


D224 


100b 





8297 


100C 





D226 


100D 





8297 


100E 





D228 


100F 





8297 


1010 





D22A 


1011 





8297 


1012 





D22C 


1013 





D269 



1014 01 4C800871 



1016 00 4480013? 

1018 1 0814 

1019 1 080C 

101A O 1010 

101B D269 

101C O D2CC 

10 ID 01 4C8G086E 



DI AGNOSTI 
ST. NO. 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 
• 2212 

2213 

221 4 

2215 

22 16 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

222" 

22J0 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 
', 2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 



DATE 
EC NO. 



14N0V69 
431319 



T0JAN70 
431319A 



C/180 

LABEL OPCD FT OPERANDS 

OR 2 TSCAC-TB OR IN AREA CODE 

OR 2 DVADR-T5 *** 

STC 2 HIOXX+1-TK *** 
* 

OR 2 H0100-TB BUILD START I/O IOCC 

STO 2 SIOXX+1-TB *** 
* 

STO 2 TI0XX+1-T3 BUILD TEST I/O IOCC 

STO 2 SENSE+1-TB SET FOR SENSE IOCC 
* 

LD 2 H0700-TB BUILD SENSE CHANNEL 

OR 2 TSCAC-TB * STATUS IOCCS 

SRA 8 

SLA 8 

A 2 K6-TB 

-TO 2 SCSN5+1-TB = 06 

A 2 K2-TB 

STO 2 SCSNO+1-TB *** = 08 

A 2 Kl-TB 

STO 2 SCSN1+1-TB = 09 

A 2 Kl-TB 

STO 2 SCSN2+1-TB = OA 

A 2 Kl-TB 

STO 2 SCSN3+1-TB = OB 

A 2 Kl-TB 

STO 2 SCSN4+1-TB = OC 

STO 2 SCISW-TB SET INT SW 



BSC I GETDV RETURN 

***** *********************************** *********-* 



*-:-******************************************** * * * * 
***************** a *v****************±************** 



*************************************s***********»s 

* 



FPOVE BSI I RELDV 
DC TSCED 
DC TERM 

* 

SLA 16 

STO 2 SCISW-TB 

STO 2 ERTSW-TB 

BSC I FREDV 



RELEASE DEVICE 
SEL CHN EDIT 
TERMINATOR 

RESET- 
INTERRUPT SW 
EARLY RETURN SW 
KETU1IN 



******* ******************** ************** ********** 

* * 

* START I/O ROUTINE * 

* * 

* CALL - BSI 2 SIO-TB * 



PART NO. 2279464 
PAGE 2 3 



ID/SEONO 

8102201 

81022020 

81022030 

81022040 

81022050 

81022060 

el022070 

81022080 

81022090 

81022100 

810221 1 

81022120 

81022130 

81022140 

81022150 

81022160 

81022170 

81022180 

81022190 

810222O0 

B102221 

81L :2220 

31022230 

81022240 

810^2250 

8102226C 

61022^70 

81022280 

81C 22290 

81022300 

8102231 

61022320 

61022330 

31022340 

61022330 

el022360 

61022370 

31022380 

SI02239C 

81022400 

8102241 

81022420 

8'022430 

bl022440 

t-1022450 

f 1022460 

S1022470 

31022460 

81 v;22490 

81022500 



15SEP71 
431328 



20NOV72 
431337 



PROG ID 
PAGE 



08 1 0-1 
23 



IEM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



PART NO. 2279464 
PAGE 23A 



SELECTOR 


CHANNEL 


DI AGN0S1 


riC/1800 














ADDR 


REL 


OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 






ID/SEONO 








22 51 


* 




DC IOCC 


ADDRESS 


* 


S1022510 








2252 


* 




DC EXPECTED CSW'S ADDRESS 


* 


8102251:0 








2253 


* 




DC ERKOR RETURN ADDRESS 


* 


81022530 








2254 


* 










* 


81022540 








2255 


* 










* 


81022550 








2256 


****************#************<********************* 


81022560 


101F 


1 


0F6E 


22 57 

2258 


SIOYY 

* 


DC 




T33CK 


HALT I/O RTN ID 




81022570 
81022580 


1020 


01 


67300874 


2259 


S10NT 


LDX 


13 


SIO 


SET XP3= CALLING ADCRS 




81022590 


1022 





C300 


2260 




LD 


3 





GET IOCC «DDRS 




8i J22600 


1023 





D013 


22 61 
2262 


* 


STO 




SI001+3 


SFT TO DO XIO 




C102261 
8102262 


1024 





1010 


22 63 




SLA 




16 






81022630 


1025 


01 


D4001 143 


2264 
2265 


* 


STO 


L 


SIOBS 


CLEAR CHNL BUSY SW 




81022 640 
81022650 


1027 





C2F5 


2266 




LD 


2 


SIO-TB 


GET ENTRY 




S1022 660 


1028 





90F6 


2267 




S 




SIOYY 


TEST FOR HIO kTN 




81022670 


1029 


01 


4C181034 


2268 
2269 


* 


BZ 




SI001 


BR IF YES 




81022680 
81022690 


102B 


p 


0A25 


2270 


SIOCK 


XIO 


2 


3CSNI-TB 






81022700 


102C 





1007 


2.-!71 




SLA 




SCABZ 






81022710 


102D 


01 


4C101034 


2272 
2273 


* 


BNN 




SI001 






8102272 
8102k730 


10 c 





0A25 


2274 




XIO 


2 


SCSN1-TB 






81022740 


1030 





D23B 


2275 




STO 


2 


SCSXC-Tb 






81022750 


1031 





1007 


2276 




SLA 




SCABZ 






81022 76 


1032 


01 


4C281 144 


2277 
2278 


* 


BN 




SICBZ 


BR IF STILL BUSY 




81022770 
. 1 02^780 


1034 


01 


6C0008E8 


2279 


SI 00 1 


STX 


L 


SCISW 


SET INT SW 




81022790 


1036 


00 


OCOOOOOO 


2280 
2281 


* 


XIO 


L 


* — ** 


DO THF XIO 




810."!2 80O 
8102281 


1038 





C2C0 


?282 




LD 


2 


ERTSW-TB 


GET EAPLY RET SW 




81022820 


1039 


01 


4C201 100 


2283 




BNZ 




SIOER 


BR IF SET 




81022830 


103B 


00 


650000FA 


2284 




LDX 


LI 


250 


SET TIMER=250 




8i022 640 


1030 





C283 


2285 


SI002 


LD 


2 


TSWO-TB 


GET OPTION SWS 




81022850 


103E 





1008 


2286 




SLA 




OLPST 


TEST LOOP START I/O 




81022860 


103F 





4810 


2287 




SKP 




- 


SKIP IF YES 




81022870 


1040 





42F8 


2288 




BSI 


2 


STMLS-TB 


GO TO MONITOR 




81022830 


104 1 





C269 


228* 




LD 


2 


SCISW-TB 


DID INT OCCUR 




81022890 


1042 


01 


4C18106B 


2290 




BZ 




SI004 


BR IF YES 




81022900 


1044 





71FF 


2291 




MDX 


1 


-1 


ELSE DECREMENT COUNTER 




8102291 


1045 





70F7 


2292 




MDX 




SI002 


LOOP 




8102292 








2293 


* 


COME 


HERE IF TIME 


3 OUT W/0 INT. 




81022930 


1046 





1010 


2294 




SLA 




16 


CLEAR INT SWITCH 




81022940 


104 7 





D26V 


2295 




STO 


2 


SCISW-TB 


*** 




8i022°50 


1048 





C283 


2296 




LD 


2 


TSWO-TB 






81022960 


1049 





lOOtt 


2297 




SLA 




OLPST 


LOOP START I/O 




81022970 


104A 


01 


4C101050 


2298 




BNN 




SI003 


BR IF NO 




81022990 


104C 





0A25 


2299 




XIO 


2 


SCSN1-TB 


RESET CHANNEL 




81022990 


104D 





0A29 


2300 




XIO 


2 


SCSN3-TB 


RESET CHANNEL 




81023C00 



DATE 
EC NO. 



14 NOV 69 
431319 



30 JAN70 
431319A 



15SEP71 
43132U 



20NOV72 
4 3 1 33 7 



PROG ID 
PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 

SELECTOR CHANNEL DIAGNOSTIC/1800 
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© 



OATE 


14N0V69 


30JAN70 


15SEP71 


20N0V72 


EC NO. 


431319 


431319A 


431328 


431337 



PART NO. 
PAGE 



2279464 
24 



ADDR 


REL OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 




ID/SEQNO 


104E 





0A2D 


2301 




XIO 


2 


SCSN5-TB 


ALLOW POLLING 


8102301 


104F 





70E4 


2302 




MDX 




SIO01 


GO DO XIO AGAIN 


81023020 








2303 


* 


COME 


HERE IF NO INTERRUPT AND NOT SCOPING 


81023030 


1050 





0A25 


2304 


SI003 


XIO 


2 


SCSN1-TB 


GET CHNL STATUS 


81023040 


1051 





D23B 


2305 




STO 


2 


SCSXC-TT 


SAVE 


81023050 


1052 




0A29 


2306 




XIO 


2 


SCSN3-TB 


GET UNIT STATUS 


81023060 


1053 





D23C 


2307 




STO 


2 


SCSXC+1-T6 


SAVE 


81023070 


1054 





0A2B 


2308 




XIO 


2 


SCSN4-TB 


GET CSW ADDRS 


81023080 


1055 





D23D 


2309 




STO 


2 


SCSXC+2-TB 


SAVE 


81023090 


1056 





0A2D 


2310 




XIO 


2 


SCCNS-TU 


GET BYTE COUNT 


81023100 


1057 





D23E 


2311 
2312 


* 


STO 


2 


SCSXC+3-TB 


SAVE 


8102311 
81023120 


1058 


01 


44001506 


2313 




BSI 


L 


TCVSR 




81023130 


105A 





18D0 


2314 




XCH 








8102 M40 


105B 





looa 


231S 




SLA 




8 




81023150 


105C 





18D0 


2316 




XCH 








el023160 


105D 





1088 


2317 




SL T 




8 




bl023170 


105E 


01 


04001104 


2318 




STO 


L 


S10M1 




81023180 


1060 





4 2EC 


2319 




BSI 


2 


EROUT-TB 




81023190 


IOC 1 





114A 


2320 




DC 




/114A 


TAGS AND OPTIONS 


810? 3200 


1062 


1 


1104 


2321 
2322 


* 


DC 




S I OM 1 


MESSAGE ADDRESS 


8102321 
8102: 20 


1063 





C301 


2323 




LD 


3 


1 


GET EXP CSW ACDRS 


31023230 


1C64 





D001 


2324 




STO 




*+l 


SET XRl=cXP CSW ADDRS 


«10?3?40 


1065 


00 


65000000 


2325 




LDX 


LI 


*-* 


* 


r":023c50 


1067 





CAD7 


2326 




LDD 


2 


PCSW-TB 


PUT 'CSW' IN MESSAGE 


8102J260 


10i8 


01 


DC001 116 


2327 




STD 


L 


SIOM2+3 


* 


31023270 


106A 





704D 


2328 
2329 


» 


MDX 




3 ION 3 


GO TO COMMON RTN 


81023280 
BIO^^O 


106B 





C2 83 


2330 


SI 00 4 


LD 


? 


TSWO-TB 


GET OPTION SWS 


81023300 


106C 





1008 


2331 




SLA 




OLPST 


TEST FOR LOOP START I/O 


8102331 


106D 


01 


4C101076 


2332 
2333 


* 


BNN 




S1O05 


BR IF NO 


810233<-'0 
8102333C 


106F 


01 


74FF0863 


2334 




MDX 


L 


SCPLP.-l 


DEC SCOP LOOP CNT 


81023340 


1071 





70C2 


2335 




MDX 




SIO01 


LOOP TO SIO 


310233SO 


1072 





42F8 


2336 




BSI 


2 


STMLS-TB 


GO VISIT MONITOR 


61023360 


1073 





C2A5 


2337 




L- 


2 


K1000-TB 


SHT LOOP CNT= 1000 


81073370 


1074 





D2E4 


2338 




STO 


2 


SCPLP-T8 


* 


810233H0 


1075 





70BE 


2339 
-!340 


* 


MDX 




SI001 


LOCP TO SIO 


eiOP3390 
81023400 


1076 





C301 


2 341 


SIC35 


LD 


3 


1 


E 5E GET EXP CSW ADDRS 


8102341 


1077 





0001 


2342 




STO 




*+l 


-,CT XR1=EXP CSW ADDRS 


81023420 


1078 


00 


65000000 


2343 
2344 


* 


LDX 


LI 


*-«.' 


* 


81023430 
81023440 


107A 





CACD 


2345 




LDD 


2 


TYPCS-TB 


PUT «CS» IN MESSAGE 


81023450 


107B 


01 


DC001 1 16 


2346 
2 3--, 7 


* 


STD 


L 


SI0M2+3 


* 


B1023460 
81023470 


107D 





C101 


2348 




LD 


1 


1 


GET FLAGS IN US WORD 


8 10231c. 


107E 





18D0 


2349 




XCH 






SAVE 


81023*90 


107F 





C100 


23S0 




LD 


1 





GET CS WORD 


81023500 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 S.YSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL 01 AGNOSTI C/ 1 800 



DATE 
EC NO. 



14N0V69 
431319 



30 JAN70 
431319A 



15SEP7i 
431328 



20NOV72 
431337 



PART NO. 22 794 6 4 
PAGE 24A 



ADDR 


REL OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 




ID/SEONO 








2351 


« 










61023510 


1080 





F22F 


2352 




EOR 


2 


SCSXO-TB 


EOUAL CS SB 


81023520 


1081 


01 


442010A7 


2353 




BSI 


L 


SI007.2 


NO. BRANCH 


81023530 


1033 





1031 


2354 
2355 


* 


SLT 




1 


BUMP OUT CS F'.AG 


810235*0 
61023550 


1084 





C2CF 


2356 




LD 


2 


TYPUS-TB 


PUT 'US' IN MESSAGE 


81C23560 


1085 


01 


D4001116 


2357 




STO 


L 


SI0M2+3 


# 


81023570 


1087 





1010 


2358 




SLA 




16 




81023580 


1088 


01 


D4 00 1 1 17 


2359 




STO 


L 


S I0M2+4 




81023590 


108A 





C101 


2360 




LC 


1 


1 


GET UNIT STATUS 


81023600 


108b 





1888 


2361 
2362 


* 


SRT 




8 


SAVE STATUS PORTION 


81023610 
8102362 


108C 





C2DE 


2363 


SI006 


LD 


2 


DVADR-TB 


GET UNIT ADDRESS 


81023630 


109D 





1088 


2364 




SLT 




8 


GET REST OF US WORD 


81023640 


108E 





F230 


2365 




ECR 


2 


SCSXO+1-TB 


EQUAL US 'WAS' 


81023650 


103F 


01 


442010A7 


2366 




BSI 


L 


SI007.Z 


BR IF NO 


81023660 


1091 





lObl 


2367 




SLT 




1 


BUMP OUT US FLAG 


81023670 


1092 





C2D1 


2368 




LO 


2 


TYPAD-TB 


PUT »AD' IN MESSAGE 


81023680 


1093 


01 


D400 1 1 16 


2369 




STO 


L 


SI0M2+3 


* 


81023690 


1095 





1010 


2370 




SLA 




16 




81023700 


1096 


01 


D4001 1 17 


237i 




STO 


L 


S I0M2+4 




8102371C 


1098 





C102 


2372 




LD 


1 


2 


GET CSW ADDRS 


81023720 


1099 





F231 


2373 




EOR 


2 


SCSX0+2-TB 


EOUAL ADDTS SB 


81023730 


109A 


01 


O42010A7 


2374 




BSI 


L 


SI007.Z 


BR IF NO 


81023740 


109C 





1081 


2375 
2376 


* 


SLT 




1 


BUMP OUT AD FLAG 


81023750 
81023760 


109D 





C2D3 


2377 




LD 


2 


TYPBC-TB 


PUT 'BC IN MESSAGE 


81023770 


109E 





0077 


2 378 




STO 




S I0M2+3 


* 


8102176 


109F 





1010 


23 79 




SLA 




16 




81023790 


10A0 





D076 


2380 




STO 




S10M2+4 




81023^30 


10A1 





C103 


2381 




LD 


1 


3 


GET BYTE COUNT 


81023810 


10A2 





F232 


23>?2 




EOR 


2 


SCSX0+3-TB 


EOUAL BYTE CNT SB 


81023820 


10A3 


01 


442010A7 


2383 




BSI 


L 


SI007.Z 


BR IF NO 


81023830 


10A5 


00 


4F000003 


23£4 




BSC 


L3 


3 


ELSE RETURN TO CALL 


81023840 








2385 


* 


GET 


HERE IF ANY ERROR FOUND IN CSW 


81023850 


10A7 





0000 


2366 


SI007 


DC 




*-* 




81023860 


10A8 





leoo 


2387 




XCH 






TO A 


81023870 


1 0A9 


01 


4C1010AE 


2388 




BNN 




*+3 


BR IF BIT NOT SET 


81023830 


10AB 





18D0 


2389 




XCH 






A TO 


81023890 


10AC 


01 


4C8010A7 


2390 
2391 


* 


esc 


I 


SI007 


IGNORE ERROR 


81023900 
810."3910 


10AE 


01 


44001506 


2392 


S10N2 


BSI 


L 


TCVSR 


GET SECT AND RTN NUMBER 


8102392 


10B0 





loDO 


2393 




XCH 








81023930 


10B1 





10C8 


2 394 




SLA 




8 


PUT IN MESSAGE 


81023940 


10B2 





1800 


2395 




XCH 






t* 


81C2395T 


10B3 





1088 


2 396 




SLT 




8 


** 


81023960 


10B4 





D05E 


2397 
2398 


* 


STO 




S10M2 


** 


81023970 
81023980 


10B5 





42EC 


2399 




BSI 


2 


EROUT-TB 


ERROR ROUTINE 


8102^990 


10B6 





814A 


2400 




DC 




/814A 


TAGS AND OPTIONS 


81024000 



PROG ID 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL DIAGNOSTIC/1800 



PART NO. 2279464 
PAGE 25 



AODR 


REL OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 




id/seo;-io 


10B7 


1 


1113 


2401 
2402 


* 


DC 




SI0M2 


MESSAGE ADDRESS 


8102401 
81024020 


10B8 





C100 


2403 


SI0N3 


LD 


1 





GET CHANNEL STATUS 


81024030 


10B9 





42FB 


2404 




BSI 


2 


TCVBE-TB 


CONVERT TO 1443 CODE 


81024040 


10BA 





D869 


2405 




STD 




SI0M3+4 


SET IN MESSAGE 


81024050 


10BB 





C 01 


2406 




LD 


1 


1 


GET UNIT STATUS 


81024060 


108C 





1888 


2407 




SRT 




8 


SET IN UNIT ADDRESS 


81024070 


10BD 





C2DE 


2408 




LD 


2 


DVADP-TB 


** 


81024080 


10BE 





1088 


2409 




SLT 




8 


** 


81024090 


<0BF 





42FB 


2410 




as I 


2 


TCVBE-TB 


CONVERT TO 1443 CODE 


81024100 


10C0 





D066 


2411 




STO 




S10M3+7 


SET IN MESSAGE 


8102411 


10C1 





18D0 


2412 




XCH 






** 


81024120 


10C2 





D065 


2413 




STO 




SI0M3+8 


** 


81024130 


10C3 





C102 


2414 




LD 


1 


2 


GET CSW ADDRESS REGISTER 


81024140 


10C4 





4 2FB 


2415 




BSI 


2 


TCVBE-TH 




81024150 


10C5 





D864 


2416 




STD 




SI0M3+10 




81024160 


10C6 





C103 


2417 




LD 


; 


3 


GET BYTE COUNTER 


81024170 


10C7 





42F4 


2418 




BSI 


2 


TCVHE-TB 




ei024180 


10C8 





DO' ■* 


2419 




STO 




SI0M3+13 




81024190 


10C9 





18D0 


2420 




XCH 








81024200 


10CA 





D063 


2421 




STO 




SI0M3+14 




8102421 


10CB 





C101 


2422 




LD 


l 


1 


GET STATUS FLAGS 


81024220 


10CC 


01 


4C1010DO 


2423 




BUN 




SI008 


bU IF CS CHECKED 


81024230 


10CE 





CADC 


2424 




LDO 


2 


NCARE-TB 


ELSE SET CS=XXXX 


81024240 


10CF 





D8S4 


2425 
2426 


• 


STD 




S10M3+* 


* 


8t02t250 
81024260 


10D0 





C101 


2427 


SlOOd 


LD 


1 


1 


GET STATUS FLAGS 


61024270 


10D1 





1001 


2428 




SLA 




1 


GET STATUS FLAGS 


B1024280 


10D2 


01 


4C1010D8 


2429 




Br.N 




r.1009 


liR IF US CHECKED 


81024290 


10D4 





CADC 


2430 




LDD 


2 


NC \R~-TB 


ELSE SfcT US=XXXX 


81024300 


10D5 





D0S1 


2431 




STO 




SI0M3+7 


» 


R1C2431 


10D6 





18D0 


2432 




XCH 






» 


81024320 


10D7 





DOJ.0 


2433 

2434 


* 


FTO 




SI0K3+8 


* 


.,1024330 
81024340 


10D8 





C101 


2435 


SI009 


LD 


1 


1 


GET STATUS FLAGS 


810243S0 


10D9 





1302 


2436 




SLA 




2 




81024360 


10DA 


01 


4C10 10DE 


2437 




BNN 




sioio 


BR IF ADDRS CHECKED 


81024370 


10DC 





CADC 


2438 




LDD 


2 


NCARE-TB 


ELSE SET ADDRS=XXXX 


81024380 


10DO 





D84C 


2439 
244 . 


* 


STD 




SI0M3+10 


# 


8IC24390 
61024400 


1CDE 





C101 


2441 


SI010 


LD 


1 


1 


GET -STATUS FLAGS 


8102441 


10DF 





1003 


2442 




SLA 




3 




8102 4^2 


10E0 


01 


4C1010E6 


2443 




BNN 




SI011 


BR IF BYTE COUNT CHECKED 


8102443 "2 


10E2 





CADC 


2444 




LDD 


2 


NCARE-TB 


ELSE SET DC=XXXX 


81024440 


10E3 





D049 


2445 




STO 




SI0M3+13 


* 


81024450 


10E4 





1800 


2446 




XCH 






* 


81024460 


10E5 





D048 


2447 
2448 


* 


STO 




SI0M3+14 


* 


81024470 
81024480 


10E6 





4204 


2449 


SIOU 


BSI 


2 


TLGMS-TB 


GO PRINT CS SB 


81024490 


10E7 


1 


1120 


24S0 




DC 




SI0M3 




81024500 



DATE 
re NO. 



14N0V69 
431319 



30 JAN7D 
431319A 



15SEP71 
431328 



20NOV72 
431337 



PROG ID 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



PART NO. 2279»bi 
PAGE 2SA 



SELECTOR CHANNEL 


DIAGNOSTIC/1800 












ADDR 


REL OBJECT 


ST.NU. 


LABEL 


OPCD 


FT 


OPERANDS 




ID/SEONO 








2451 


* 










81O24S10 


10E8 





C300 


2452 




LD 


3 





GET IOCC ADDRS 


81O2452 


10E9 





D001 


2453 




STO 




*+l 


SET XR1=I0CC ACDRS 


81O24530 


10EA 


CO 


65000000 


2454 




LDX 


LI 


»— * 


* 


8102454 


10EC 





4207 


2455 




BSI 


2 


PIOCC-TB 


GU PRINT IOCC AND CCW 


81024550 


10ED 





C281 


2454. 




LD 


2 


TSID-TB 


GET SEC NUMB 


81024560 


10EE 





9298 


2457 




S 


2 


K2-TB 


EO'JAL SEC 1 


81024570 


10EF 


01 


4C2010F5 


2458 




BNZ 




SI012 


NO. BRANCH 


81024580 


10F1 





C296 


2459 




LD 


2 


TRID-TB 


YES. GET R. N NUMB 


81024590 


10F2 





9297 


2460 




S 


2 


Kl-TB 


EQUAL RTN 1 


S1O24600 


10F3 


00 


4F180001 


2461 
2462 


* 


ez 


L3 


1 


YES. RETURN TO RTN 


aiO24610 
81024620 


10F5 





C283 


2463 


SI012 


LD 


2 


TSWO-TB 




81O24630 


10F6 





100C 


2464 




SLA 




OLPER 


TEST FOR LOOP ON ERROR 


81O2464 


10F7 


01 


4C281034 


2465 




BN 




SI001 


BRANCH IF YES 


81024650 


10F9 





C283 


2466 




LD 


2 


TSKO-TB 




8 I 02 4 66 


10FA 





100E 


2467 




SLA 




14 




81O24570 


10FB 


01 


4C1010FE 


2468 




BNN 




SI013 




81024680 


10FD 





420 1 


2469 




BSI 


2 


THALT-TB 




61024690 


10FE 


00 


4F8j00f2 


2470 
2471 


SI013 

* 


BSC 


13 


2 


GO TO ERROR RETURN ADDR 


31024700 
8102471 O 


1100 





1010 


2472 


SIOER 


SLA 




16 


RESET EARLY RET SW 


81024720 


1101 





D2C0 


2473 




STO 


2 


ERTSW-TB 


# 


81O24730 


1102 


00 


4F000001 


2474 
2475 


* 


BSC 


L3 


1 


RETURN TO CALL 


81O2474 
81O24750 


1104 




0000 


2476 




BSS 


E 







81O24760 


1104 




001C 


2477 


SI0M1 


DMES 


1 


XX01 INTERRUPT DID NOT OCCUR'E 


81024770 


1112 





FFFF 


2478 




DC 




/FFFF 




8t0247o0 


1113 




0015 


247: 


SI0M2 


DMES 


1 


XX02 XX NO"! CGRRECT'E 


8IO24790 


1 HE 





FFFF 


2430 




OC 




/FFFF 




81024800 


1120 




0000 


2481 




BSS 


E 







81024810 


1120 




001E 


2482 


SI0M3 


DMES 


1 


S/B XXXX XXXX XXXX XXXX'E 


81024820 


U2F 





FFFF 


2483 




DC 




/FFFF 




81O24830 


1130 




0023 


2484 


SI0M4 


DMES 


1 


XX01 CHANNEL BUSY-SIO NOT ATTEMPTFD'E 


01O2484 


1142 





FFFF 


2485 




DC 




/FFFF 




O1O24850 


1 143 





0000 


2486 
2487 


SIOBS 
* 


DC 




*-* 


CHANNEL BUSY SW 


81024860 
81O24870 


1144 





COKE 


2488 


SIOBZ 


LD 




SIOBS 




81O2488 


1145 


01 


4C201 14B 


2489 




BNZ 




SI0B2 




81O24090 


1147 





68FB 


2490 




STX 




SIOSS 




81024900 


1148 





0A1D 


2491 




XIO 


? 


HIOXX-TB 


DO HALT 1/0 


81024910 


1149 


01 


4C001028 


2492 
2493 


* 


BSC 


L 


SIOCK 


GO TEST BUSY AGAIN 


8102492 
81024930 


114B 





0A29 


2494 


SI0B2 


XIO 


2 


SCSN3-T6 




81024940 


U4C 





D23C 


2495 




STO 


2 


SCSXC+1-TB 




8IO24950 


1 14D 





0A2B 


2496 




XIO 


2 


SCSN1-TB 




81024960 


114E 





D23D 


2497 




STO 


2 


SCPXC+2-TB 




81024970 


1 14F 





0A2D 


2498 




XIO 


2 


SCSN5-TB 




81O24980 


1150 





D23E 


2499 
2500 


* 


STO 


2 


SCSXC+3-TB 




8102499T 
81025000 



DATE 
EC NO. 



14N0V69 
431319 



30 JAN7 
431319A 



15SEP71 
431328 



20N0V72 
431337 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL 
ADDR REL OBJECT 

1151 1010 

1152 01 D400U43 

1154 01 44001506 
1156 13D0 



1157 





If 18 


1158 





1800 


1159 





1088 


115A 





D0D5 


1I5B 





4 2EC 


use 





114A 


115D 


1 


1130 



USE 01 4C001020 



1160 
1 161 
1162 
1 163 
1164 
1 165 
1166 
1 167 
1168 
1169 
U6A 

I 16d 
116C 

II *>D 
116E 
116F 
1170 
1171 
1172 
1173 



1 174 
1175 1 



6951 
C050 
42F3 
D04£ 
1090 
D04D 
C100 
42FB 
DC4C 
1«D0 
D04B 
C101 
42FB 

ieoe 

D049 

lees 

1608 
D045 
18CS 
D045 

4204 
11AB 



DATE 
EC NO. 



14N0V69 
431319 



01 AGNOSTI 
ST. NO. 
2 501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2 509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2 523 
2524 
2 525 
2526 
2527 
2528 
2529 
2530 
2 531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
254> 
2 54 1 
2542 
2 543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 



30JAN7C 
431319A 



C/1800 
LABEL OPCL) FT OPERANDS 
SLA 



STC 

BSI 
XCH 
SLA 
XCH 
SLT 
STO 

BSI 

DC 
DC 

BSc 



16 
SIOBS 



TCVSR 



a 

SI0M4 

EROUT-TB 

/114A 

SI0M4 



S10NT 



* 



PRINTS MESSAGE * 

IOCC AT ADDR XXXX = XXXX XXXX * 

IF START I/O. * 

CCW AT ADDR XXXX = XXXX XXXX XXXX « 

IF DATA/COMMAND f.HA IN I MG . * 

CHAINED TO XXXX = XXXX XXXX XXXX * 



CALL 



LDX 
BSI 



LI IOCC ADDRESS 
2 PIOCC-TB 



*i#£«******?*#************3************************* 



PIONT STX 
LD 
BSI 
STO 
SLT 
STO 
LD 
BSI 
STO 
XCH 
STO 
LD 
BSI 
RTE 
STO 
RTE 
SRA 
STO 
RTE 
STO 

* 

BSI 
DC 



L1.JE1 +7 
LINE1+7 
TC-HE-TB 
LINE1+7 
lb 

LINE1+8 


TCVBE-TB 
LINE1+10 

LINE1+11 

1 

TCVBE-TB 

24 

LINE 1 + 13 

8 

8 

LINE1+12 

8 

LINE 1 + 14 

TLGMS-TB 
LINE1 



PART NO. 2279464 
PAGE 26 



lD/SEON r J 

8102501 

81025020 

81025030 

81025040 

81025050 

81025060 

8102E070 

81025080 

81025090 

81025100 

8102511 

81025120 

81025130 

81025140 

81025150 

81025160 

81025170 

31025180 

2102519 

cl.,25200 

8t 02521 O 

S1025220 

c 102523 

8102C240 

810£f ?50 

61025260 

81C2S270 

31020280 

81025290 

61025300 

810/531 

81025320 

f.025330 

81025340 

81025350 

81025360 

81025370 

31025300 

81025J90 

81025400 

8102541 

el025430 

81025430 

81025440 

81025450 

B102E460 

81025470 

81025480 

41025490 

81025500 



15SEP71 
431328 



20N0V72 
431337 



PROG ID 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL 
ADDR REL OBJECT 



1176 
1177 
1 178 
1179 
1 17B 
117C 
117D 
117F 
1 180 
1182 

1183 
1 185 
1186 
1 187 
1188 
1 189 
USA 
1 18B 
1 18C 
1 18D 
USE 
118F 
1190 
1 191 
U92 
I 193 
1194 
1 195 
1196 
1197 
1198 
1 199 
119A 
1 19B 
119C 
1 19D 
119E 
119F 
11A0 









01 





00 



01 



01 




















o 



o 





o 



o 
o 



C101 

E2B3 

F2B2 

4C201 1 A9 

C100 

D001 

65000000 

6B2P 

67001 IBS 

7002 

6700 11CD 

693C 

C03B 

42FB 

D307 

18D0 

D308 

C10C 

42FB 

D30A 

leoo 

D30B 

cioi 

42FB 

leos 

D30D 
18C8 

180a 

D30C 
18C8 
D30E 
C102 
42FB 
D30F 
18D0 
D310 
6B01 
4204 
0000 



11A1 C101 

11A2 E2BC 

11A3 01 4C1811A7 

11A5 O 7103 

UA6 70DC 

UA7 00 67000000 

11A9 01 4C800886 



DIAGNOSTIC/1800 

ST. NO. LABEL 

2551 * 

2 552 LD 

2553 AND 

2554 EOR 

2555 BMZ 

2556 LD 

2557 STO 

2558 LDX 

2559 STX 

2560 LDX 

2561 MDX 
i!562 * 

2563 PI001 LDX 

2564 PIO02 STX 

2565 LD 

2566 BSI 

2567 STO 
2 568 XCH 

2569 STO 

2570 LD 

2571 BSI 

2572 STO 

2573 XCH 

2574 STO 

2575 LD 

2576 BSI 

2577 RTE 
2R78 STO 
257" RTE 

2580 SRA 

2581 STO 

2582 RTE 

2583 STO 

2584 LD 

2585 BSI 

2586 STO 

2587 XCH 

2588 STO 

2589 STX 

2590 BSI 

2591 PI003 DC 

2592 » 

2593 LD 

2594 AND 

2595 EZ 

2596 MDX 

2597 MDX 

2598 * 

2599 PI0X3 LDX 

2600 PIOXT BSC 



OPCD FT OPERANOS 



H0700-TB 
H0500-TB 
PIOXT 


*+l 
*-* 

PIOX3+1 
L3 LINE2 
PIO02 



1 



LI 

3 



EXIT IF NOT START I/O 
GET CCW ADDRESS 



SAVE REG 



L3 LINE3 

1 LINE2+7 
LINE2+7 

2 TCVBE-TB 

3 7 

3 8 

1 

2 TCVBfc-TB 

3 10 



1) 

TCVBE-TB 

24 

13 

8 

8 

12 

8 

14 

2 

TCVBE-TB 

15 



3 16 

3 PIO03 

2 TLGMS-TB 

*-« 

1 1 

2 HCOOO-Tb 
PI0X3 

1 3 

PIO01 

L3 *-* 
I PIOCC 



CCW+1 

SAVE CHAINING B I T3 

EXI1 IF NOT SET 

ELSE SET NEXT CC* ADDR 

LOOP LINE3 AGAIN 

RES T ORE REGISTER 
EXIT ROUTINE 



DATE 
EC NO. 



14N0V69 30JAN70 15SEP71 20N0V72 
431319 431319A 431326 431337 



PART NO. 2279464 
PAGE 26A 



ID/SEONO 
81025510 
61025520 
81025530 
81025540 
81025550 
81025560 
81025570 
81025580 
81025590 
81025600 
81025610 
81025620 
81025630 
81C25o40 
81025650 
8102S660 
81025670 
81025680 
81025690 
01025700 
81025710 
8102572 
81025730 
ei025740 
81025750 
81025760 
81025770 
81025700 
8102S790 
81025800 
8102581 O 
3102582 
81025830 
81025840 
81025850 
81025860 
81025870 
81025880 
810<i5S90 
81025900 
8102591 
8102592 
81025930 
81025940 
8102E950 
81025960 
81025970 
31025980 
8102599C 
8102600C 
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PAGE 26A 
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IBM MAINTENANCE DIAGNOSTIC PPOGHAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



4 4 4 4 



SELECTOR CHANNEL D 
ADDR REL OBJECT 



1IAB 




001D 


1 1BA 





FFFF 


11BB 




0022 


11CC 





FFFF 


UCf 




C022 


1IDE 





FFFF 



11DF 1 
11DF 
11E0 
11E1 
11E2 
I1E3 01 



C2F8 
D02F. 
692E 
6B2E 
65801212 



11ES C029 

1IE6 01 D5001214 

11E8 C027 

11E9 01 D5001215 

11EB C025 

11EC 01 D5001216 



l'EE 
llhF 



7103 
6922 



UFO C022 
11F1 D28C 
11F2 00 4CC0012! 



11F4 01 6600087F 

11F6 C01D 

11F7 D2F8 

11F8 O C01C 



I AGNOSTI 
ST. NO. 
2601 
2602 

2603 

2604 

260S 

2606 

2607 

2608 

2609 

2610 

2611 

2612 

2613 

2614 

2615 

£616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2f ?.l 

2632 

2 633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 

2641 

264? 

2 643 

2644 

2645 

2646 

264 7 

2648 

2649 

2650 



DATE 
EC NO. 



14N0V69 30JAN70 
431319 431319A 



C/180 
LABEL OPCD FT OPERANDS 



LINE1 DMES 
DC 

L1NE2 DMES 
DC 

LINE3 DMES 
DC 

• 



1 IOCC AT ADDR XXXX = XXXX XXXX'E 

/FFFF 
1 CCW AT ADDR XXXX= XXXX XXXX XXXX'E 

/FFFF 
1 CHAINED TO XXXX= XX>X XXXX XXXX'E 

/FFFF 



* 

» 

* SAVE INDEX REGISTERS AND GO TO MONITOR 

* 



STMLE EQU * 

GET CALLING ADDRS 

PUT IN TEMP CAVL AREA 

PUT REGS IN SAVE ARtA 

GET O LOCATION 



LD 2 STILS-TB 

STC STMSA 

STX 1 STMSA+1 

STX 3 STM5A+2 

LDX II STMPT 



LD 




STMSA 


GET I REG 


ST3 


LI 


STMST 


PUT IN Q 


LD 




STMSA+1 


G^T XR1 


STO 


LI 


STMST+1 


PUT IN 


LD 




STMSA+2 


GET XR3 


STO 


I 1 


STMST+2 


PUT IN 


MDX 


1 


+ 3 


BUMP POINTER 


STX 


1 


STMPT 


SAVE 



SET UP MONITOR RETURN 
GO VISIT MONITOR 
RETURN FROM M0N1I0R HERE 



LD STMRT 
STO 2 MLSC2-TB 
BSC I START 



STMLX LDX L2 T6 

LD STMST 
STO 2 STMLS-TB 



ID 



STMST+1 



SET UP TABLE PNTR 

GET ENTRY LOC 

PUT IN RETURN 

GET XR1 



PART NO. 2279464 
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ID/SETNO 

8102601 

31026020 

81026030 

81026040 

81026050 

81026060 

81026C70 

81026080 

81026090 

81026100 

8102611 O 

81026120 

81026130 

81026140 

81026150 

81026160 

81026170 

81026180 

81026190 

81026200 

8102621 

81026220 

81026230 

61. 2'>2 4 

K10262E0 

81026260 

HIG26270 

81026283 

81026290 

81026300 

811263! 

81026320 

81026330 

8102 634 

81026350 

81026360 

8102637 

810263BO 

61026390 

81026400 

8102641 

81036420 

81026430 

81026440 

81026450 

8102646C 

8102647 

81026480 

81026--9 

61026500 



15SEP71 
431328 



2 0NOV72 
431337 



! 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOP CHANNEL OFF-LINE DIAGNOSTIC 



4 4 4 



PART NT. 
PAGE 



£279464 
27A 



SELECTOR CHANNEL 
*DDR REL OBJECT 
11F9 D016 



1 1FA 
11FB 



C01B 
D015 



11FC 61F7 

11FD 01 C5001220 

11FF 01 D500121D 

1201 7101 

1202 70FA 

1203 01 74FD1212 

1205 O 7006 

1206 01 658012.0 
1208 01 67801211 
120A 01 4C800877 

120C C006 

1200 D28C 

120E 70F7 



120F 0000 

1210 0000 

1211 0000 

1212 0000 

1213 1 11F4 



1214 0000 

1215 0000 

1216 0000 

1217 0000 

1218 0000 

1219 0000 

121A 0000 

121B 0000 

121C O 0000 

121D 0000 

121E 0000 

121F 0000 



DI AGNOSTI 
ST. NO. 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

2 664 

2665 

2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 

2674 

2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2 696 
2697 
2693 
2699 
2700 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431 319A 



C/1800 
LABEL 



OPCD FT OPEPANDS 
STO STMSA+1 
LD STK3T+2 
STO STMSA+2 



LDX 



1 -9 



LD LI STMST+12 

STC LI STMST+9 
MDX 1+1 
MDX STMLL 



STMSE 



MDX 
MDX 

LDX 
LDX 
ESC 



L STMPTt-3 
STMPS 

II STMSA+1 
13 STMSA+2 
I STMI.S 



PUT IN TEMP SAVE 

GET XR2 

PUT IN TEMP SAVE 



MOVE ALL SAVED 

* PARAMETERS UP 3 

* PLACES IN Q 



DECREMENT POINTER 
IF NOT ©.CONTINUE 

ELSE RESTORE PARAMETERS 

* 

RETURN 



GET HERE IF ENTRYS NEED SERVICING 



STMPS 



S'iMSA 



LD 

STO 

MDX 



STMRT 

2 MLSC2-TB 

STMSE 



SET UP RETURN TO 
■"■ STMLS ROUTINE 
EXIT 



TEMPORARY SAVE AREA 

DC *-* 
DC *-* 
LC *-* 



STMPT 
STMRT 



DC 
DC 




STMLX 



O POINTER 
RE-ENTRY LOCATION 



QUEUED SAVE AREA 



STMST 



DC 
DC 
DC 

DC 
DC 
DC 

DC 
DC 
DC 



*-« 
*-* 

*-* 
«-* 

*-* 



«-* 
*-* 



I 

XR1 

XR3 

I 

XR1 

XR3 



DC *-* 
DC *-* 
DC *-* 



ID/SEQNO 
81026510 
81026520 
8102653C 
81 02654 C 
81026550 
81026560 
8102657U 
81026580 
81026590 
81026600 
8102661 
81026620 
81026630 
81026640 
81026650 
PI 02666 
81026670 
81026680 
81026690 
81026700 
81026710 
81026720 
81026730 
81026740 
81026750 
81026760 
81026770 
31026780 
81026790 
8: 026600 
81026810 
8102682 
B102J830 
81026840 
31026350 
81C26860 
81026870 
81026880 
81026890 
81026900 
81C2691 
81026920 
81026930 
81026940 
81026950 
81026960 
81026970 
81026980 
*** 81026990 
81027000 



15SEP71 
431328 



20NOV72 
431337 



PROG ID 
PAGE 



081 0-1 
27A 
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IEM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



PART NO. 3279464 
PAGE 28 



SELECTOR CHANNEL 
ADDR REL OBJECT 



1220 1 

1220 C283 

1221 100E 

1222 01 4C101233 



1224 

1225 

1226 

1227 

1228 

1229 
122A 1 



C201 
42FB 
D01F 
1090 
CJ1E 
.i204 
1235 



122B C297 
122C C EAB3 
1220 D283 



122j 



42FB 



122F C233 
1230 01 4C04122E 



1232 42F8 

1233 01 4CB00880 



1235 
1246 
1248 
1249 
1257 
1258 
12 63 
12 64 
1270 
1271 
127D 



0022 
0004 
OOFF 
001C 
OOFF 
0015 
OOFF 
0018 
OOFF 
0017 
FFFF 



DIAGNOSTI 
ST. MO. 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
27C9 
2710 
271 1 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 

27jy 

2739 
2740 
«.'41 
2742 
2743 
2744 
2745 
2746 
2 747 
2748 
2749 
2750 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
4313>9A 



C/1800 
LABEL OPCD FT OPERANDS 

*****#***********:********************************** 

* HALT ROUTINE 

* SETS BIT 15 IN TSXO ON AND LOOPS 

* THRU MONITOR UNTIL BIT IS CLEARED. 

# 

*************************************************** 
» * 

*************************************************** 

THLTE EOU * 

LD 2 TSWO-TB GET OPTION SWS 

SLA OH,»,_T TEST FOR HALT ON ERROR 

BNN THLTR BR IF NO 



THLTG LD 
BSI 
STO 
SLT 
STO 
BSI 
DC 

LD 
OR 
STO 



2 THALT-TB 
2 TCVBE-TB 

TMLT2 

16 

THLT2+1 
2 TLGMS-TB 

THuTM 

2 Kl-TB 
2 TSWO-TB 
2 T3W0-TB 



GET CALLING ADDRESS 

CONVERT TO PRNT CODE 

SET IN MSG 

O TO A 

SET IN MSG 

GO PRINT MSG 

MESSAGE ADDRESS 

SET BIT 15 



* LOOP THRU MONITOR UNTIL READY 

* 

TrILTL BSI 2 STMLS-TB GO TO MONITRR 

» RETURN t.ERE 

LD .? TSKO-TB GET SWITCH WORD 
BOD THLTL BS IF STILL ON 



BSI 2 STMLS-TB 
THLTR BSC I Tr-iALT 



CO TO MONITOR 
RETURN TO CALLER 



THLTM DMES 
THLT2 DMES 
OC 

DMES 
DC 

DMES 
DC 

DMES 
DC 

DMES 
DC 



***HALT SC 01 AGNOSTIC AT ADRS 'E 

•E 
/OOFF 

TO CLEAR HALT SET S»ITCHES-»E 
/OOFF 

S/P OOPP PPPP. P=PID'E 
/OOFF 

DES XXXX XXX.. XXXX XXXO'E 
/OOF? 

PRESS CONSOLE INTERUPT'E 
/FFFF 



* * 



ID/SEQMO 

81027C1 

81027020 

81027030 

81027040 

81027050 

81027060 

81027070 

81027080 

81027090 

81027100 

8102711 O 

81027120 

81027130 

81027140 

810271-JO 

81027160 

81027170 

81027180 

81027190 

81027200 

8102721 

81O27220 

810272. O 

81027240 

81027250 

81027260 

81027270 

810S72B0 

81027290 

810273 10 

8102731 

1-1027320 

81027330 

810'i 7340 

81027350 

81027360 

81027370 

81027360 

81027390 

81027400 

8102741 

81027420 

81027430 

81027440 

31027450 

81027460 

81027470 

«10274-30 

81027490 

81027500 



15SEP71 
43132 8 



20N0V72 
431337 
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PAGE 
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28 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



( ( ( 



PART NO. 22 79464 
PAGE 2 8A 



SELECTOR 


CHANNEL DIAGNOSTIC/1800 












ADDR REL 


OBJECT 


ST. NO. 
2751 
2752 


LABEL 


OPCD 


FT 


OPERANDS 




ID/SEQNO 
81027510 






* 


CALL 


************************** 


81027520 






2753 


* 


* 


BSI 


2 EROUT- 


T6 * 


61027530 






2754 


¥ 


* 


DC 


/0127 


CNTRL TAGS * 


81027540 






2755 


* 


* 


DC 


/ABCD 


ERR NUMBER * 


81027550 






2756 


* 


* 






(SECT.RT.ER) * 


8102/560 






2757 


* 


***************************** 


81027570 






2758 
2759 


* 










81027580 






*************************************************** 


81027S90 






2760 
2761 


* 








* 


8102 760 






**************************************************** 


810276' 


















81027620 






2762 
2763 


* 
* 


EQUATES 


FOR EROUT 


TAGS 


81027630 


















81027640 






2764 


* 












0000 




2765 


OECXO 


EQU 







CSW=SCSX0 


810^7650 


0001 

0002 




2766 
2767 


0ECX4 
0ECX8 


EQU 
EQU 




1 
2 


CSW=SCSX4 

csw=scsxa 


81027660 
81027670 


0003 




2768 


OECXC 


EQU 




3 


csw=scsxc 


81027680 


0006 




2769 


OEXIT 


EO'J 




6 


EXIT TO ERADR 


81027690 


0007 




2770 


^EPBL 


EQU 




7 


PRINT A BLANK LINE 


81027700 


00 09 




2771 


OEBYP 


EQU 




9 


BYPASS HALT LOOP 


8102771 


OOOA 
00 Ob 




2772 
2773 


OEGSN 
0EL1B 


EQU 

eou 




10 
11 


GET SENSE BYTES 
BYPASS LINE 1 


8102772 
81027730 


OOOC 




2 774 


OEERR 


EQU 




li; 


PRINT ERROR MPG 


81027740 


0000 
OOOE 
OOOF 




2775 
2776 
2777 


OECAW 
OECSW 
OESNS 


EQU 

EQU 
EQU 




13 
14 

15 


PRINT CAW 

* CSW 

* SNS 


81027750 
81C27760 
81C2T770 




2 778 


************************* ************************** 


81027780 
















^ 


810i"'790 






2779 


* 
















2 780 


***** 


»**********************************<********** 


81027800 


127E 


0000 


2781 


ERMSG 


BSS 


E 







8102781 


12 7E 


OOOC 


2782 




DMES 


1 


♦SER-XXXX «E 


8102782 


1 2 84 


003C 


2783 


PRINT 


BSS 


E 


60 


PRINT SUFFER 


81027630 


12C0 1 




2784 


ERTNE 


EQU 




* 


ENTRY POINT 


81027840 


12C0 01 


6D00 138 1 


2765 




STX 


LI 


ERT17+1 


SAVE REGS 


81027S50 


12C2 01 


6F001383 


2786 
2787 
2788 


* 


STX 


L3 


ERT1 7+3 


* 


ei027860 
81027870 


12C4 01 


67fc0086B 


ERTN2 


LOX 


13 


EROUT 


sr T REG 


81027880 


12C6 'J 
12C7 


C300 
1007 


2789 
2790 




LD 
SLA 


3 



OEPBL 


GET OPTIONS/FLAGS 
PRINT BLANK LINE FIRST 


81027890 
8102790 


12C8 01 


4C1012CC 


2791 




BI4N 




ERTN3 


BR IF NOT 


8102791 


12CA 


4204 


2 792 




BSI 


2 


TLGMS-TB 


PRINT BLANK LINE 


8102792 


12CB 1 


080C 


2793 
2794 


* 


,~t 2 




TERM 


/FFFF 


81027930 
81027940 


12CC 


C300 


2795 


ERTN3 


LD 


3 





GET TAGS 


81027950 


12C0 


100b 


2 796 




SLA 




0EL1B 


BYPASS LINE 1 PRINT 


81027960 


12CE 01 


4C281304 


2797 




BM 




ERT10 


BR IF YES 


81027970 


12D0 
1201 01 


1001 
4C1012E4 


2798 
2799 
2800 


* 


SLA 

BNN 




0EEHR-OEL1B ERROR MSG 
ERTN6 BR IF NOT 


81027980 
81027990 
81028000 



DATE 
EC NO. 



14NOV69 
431319 



30 JAN70 
431319A 



15SEP71 
431328 



20N0V72 
431337 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



SELECTOR CHANNEL D 
ADDR REL OBJECT 
I2D3 6100 
1204 C30 1 
12D5 D001 
12D6 00 C5000000 
12DB F-iOD 
12D9 01 4L1312E0 
120B F2BD 
12DC CI 05001281 



PART NO. 2279464 
PAGE 29 



1£D£ 
.2DF 



7101 
70F6 



12E0 01 75001281 

12E2 1000 

12E3 7009 

12E4 C30 1 



12E5 





42FU 


12E6 





00'. A 


12E7 


C 


IfcuO 


12E6 





0099 


12E9 





1010 


12EA 





0098 


12EB 


01 


6500 


12ED 





C2DE 


12EE 


) 


42FU 


12EF 





1090 


12F0 





D262 


12F1 





C2LC 


12F2 





9297 


12F3 





4 2FB 


12F4 





D266 


12F5 





1 J9 


12F6 





D267 


12F7 





6 JO 4 


12F3 





6100 



12T9 01 C50008DE 

12FB 00 DS000000 

12FD F20D 

12FE 01 4C1O1302 

1300 7101 

1301 70F7 



1302 

1303 1 



4204 
12 7E 



1304 C300 
130b 100D 
1306 01 4C181379 



I AGN0ST1 


C/1800 












ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 




ID/SEQNO 


2801 




LDX 


1 





SET COUNT TO ZERO 


8102601 


2802 




LO 


3 


1 


GET MSG ADDRESS 


81026020 


2803 




STO 




ERTN4+1 


SET FOR LOAD INSTRUCTION 


81028030 


2804 


ERTN4 


LD 


LI 


*-« 


GET WORD TO MOVE 


81028040 


2805 




EOR 


2 


TEPM-TB 


IS IT END OF MSG 


81028050 


2806 




az 




ERTN5 


BR YES 


81028060 


2807 




EOR 


2 


TEPM-TB 


RESTORE DATA WORD 


81028070 


28 08 




STO 


LI 


ERMSG+3 


STORE IN TABLE 


810280S0 


2609 




KDX 


1 


1 


COUNT 


8102d090 


2810 




MDX 




ERTN4 


LOOP 


81028100 


2811 


* 










810281 1 


28 12 


ERTN5 


MDX 


LI 


ERMSG+3 


POINT TO NEXT WORD 


81023120 


2813 




NOP 








81028130 


2814 




vex 




ERTN7 




81026140 


2815 


* 










81028150 


28 16 


ERTN6 


LD 


1 


1 


GET MSG NUMBER 


81028160 


2817 




6SI 


2 


TCVBE-Tb 


CONVERT TO 43 CODE 


61028170 


26 18 




STO 




ERMSG+3 


STORE 


61026180 


2819 




XCH 






SWAP A-0 


81028190 


2810 




STO 




ERM5G+4 




ell02e2f0 


2821 




SLA 




16 


SET IN TWO BLANKS 


8102621 


2b22 




STO 




EKMOG+S 


*» 


81026220 


2823 




LDX 


LI 


PnINT 


SET POINTER 


61026230 


2824 


A 










81026240 


2825 


ERTN7 


LD 


2 


DV ADR- 7U 


GET DEVICE ADDRtSS 


8l0rid25 


2026 




bSl 


2 


TCVUE-Tli 


CIJNVEKT TO 43 CJDE 


81028260 


21.27 




SLT 




16 


LOW OHCnH TWO HYTES ONLY 


81028270 


262d 




STO 


2 


UNADR+3-TB 


STORE FUR PRINT 


81028280 


2829 




LD 


2 


ERUUT-TU 


GET CALLING ADDRFSS 


81028290 


28 30 




S 


2 


Kl-TB 


(JOINT TO CALLING INSTRUCTN 


B1P2H300 


2831 




BSI 


2 


TCV3E-TI) 


CONVERT TO HEX 


8102831 


26 32 




STO 


2 


UNADR+7-TB 




81028320 


2633 




CT 




ie 




dl028330 


2834 




STO 


2 


ONADtt+8-TH 




81026340 


2835 




STX 


1 


ERTN8+3 


SAVE REG IN INSTRUCTION 


C 102 635 


2»S36 




lOX 


1 





SET COUNT 


81028360 


2837 


* 










el028370 


2638 


ERTH8 


L.J 


LI 


UNADH 


GET WORD TO MOVE 


81028380 


28 *9 




STO 


LI 


*-* 


STUHE IN NEW LOC'N 


81026390 


23'. J 




FOR 


2 


TERM-TB 


TEST FOR END OF MSG 


81028400 


2641 




bZ 




ERTN9 


BR IF YES 


8102841 


2842 




MDX 


1 


1 


BUMP COUNT 


81028420 


2843 




MDX 




ERTN8 


LOOP 


8102 84.' 


2644 


* 










81028440 


2845 


ERTN9 


BSI 


2 


TLGMS-TB 


GO PRINT MSG 


8102e450 


2U46 




DC 




ERMSG 


ADDRESS OF MESSAGE 


81028460 


2847 


* 


— CAW 


ADDRESS 


OF CCW ChAIli 


8102847C 


2848 


ERT1C 


LD 


3 





GET TAGS 


81028480 


2649 




SLA 




JECAW 


TEST FOR CAW.CSW.SNS 


81028490 


2650 




3Z 




ERT15 


BR IF NONE 


81023500 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431326 



20NOV72 
431337 



PROG I J 
PAGE 
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PART NO. 22 79464 
PAGE 29A 



SELECTOR 


CHANNEL 


DIAGNOSTIC/1800 














ADDR REL OBJECT 


ST. NO. LABEL 


OPCD 


FT OPERANDS 






ID/SEONO 


1308 01 


65001284 


2051 


LDX 


LI PRINT 




SET POINTER TO AREA 


B1028510 


130A 01 


4C101316 


2852 


BNN 


ERT11 




BR IF NO CAU 




81028520 


130C 


10A0 


2853 


SLT 


32 








81028530 


130D 


D900 


2854 


STD 


1 








H1028S-10 


130E 


7102 


28 55 


MOX 


1 2 








81028SSO 


130F 


CAD5 


2856 


LDD 


2 PCAW-TB 


GET HEADER 




81028560 


1310 


0900 


2857 


STD 


I 




STORE IN AREA 




8102eS70 


1311 


C2C6 


2658 


LD 


2 CAW5V- 


Tb 


GET CCW ADDRESS FOR S10 


81028530 


1312 


42FB 


2659 


BSI 


2 TCVBE- 


TO 


CONVERT TO EBC 




81028590 


1313 


D902 


2660 


STD 


1 2 




STORE IN AREA 




B1028600 


1314 


7104 


28 61 


MDX 


1 4 




BUMP POINTER 




61028610 


1315 


1000 


2862 


NOP 










81028620 






2863 * 


CSW CHANNEL 


DS.V WORDS 




81028630 


1316 


C300 


2864 ERT11 


LD 


3 




GET TAGS 




81028640 


1317 


loot 


2665 


SLA 


OECSW 




TEST FUR CSW TO 3E 


PRINTED 


81028650 


1318 01 


4C101348 


2866 


BNN 


ERT12 




BR IF NOT 




81028660 


131 A 


C300 


2867 


LD 


3 




GET OPTION WORD 




81028670 


131B 01 


670006AE 


2868 


LDX 


L3 SCSXO 




PoINT TO CSW SAVE 


ARFA 


81028680 


1310 


lbCC 


2669 


SRA 


12 




SAVE BITS 0-3 




81028690 


131E 


100C 


2870 


3L» 


12 




*** 




81028700 


131F 


4830 


2671 


SKP 


Z- 








81026710 


1320 


7304 


2672 


MDX 


3 4 




BUMP TO NEXT SAVE 


AREA 


81028720 


1321 


1001 


2673 


SLA 


1 




TEST NEXT BIT 




81028730 


1322 


4830 


2874 


SKP 


Z ■■ 








8*028740 


1323 C 


7304 


28 75 


MDX 


3 4 




BUMP TO NEXT SAVE 


AREA 


81028750 


1324 


1001 


2876 


SLA 


1 




TEST NEXT BIT 




81028760 


1325 


4830 


2877 


SKP 


Z- 








81028770 


1326 


7304 


2878 


MDX 


3 4 




EUMP TO NEXT SAVE 


AREA 


81028780 


132 V 


1001 


28 79 


SLA 


1 




TEST NEXT BIT 




81028790 


1326 


4830 


2880 


SKP 


Z- 








8102S800 


1229 


7304 


288 1 


MDX 


3 4 




BUMP TO NEXT SAVE 


AREA 


8102831 


132A 


CAD 7 


2882 


LDD 


2 PCSW-TB 


GET >CSW • 




81028820 


132B 


D902 


2633 


STD 


1 2 




SET IN MSG 




8)026830 


132C 


C300 


2884 


LD 


3 




GET CHANNEL STATUS WORD 


81028840 


132D 


42Fb 


2885 


BSI 


2 TCVBE 


-TB 


CONVERT 




81028eo0 


132E 


D904 


2686 


STD 


1 4 




STOPF 




81028860 


132F 


C301 


2887 


LD 


3 1 




GET UNIT STATUS WORD 


81028870 


1330 


42FB 


2868 


BSI 


2 TCVBE 


-TB 


CONVERT 




81C28880 


1331 


D107 


2869 


STO 


1 7 




STORE 




81028890 


1332 


1090 


2890 


SLT 


16 








81028900 


1333 


D10H 


2891 


STO 


1 8 




STORE 




81028910 


1334 


C302 


2892 


LD 


3 2 




GET CSW AODRESS WORO 


81028920 


1335 


42FE 


2893 


BSI 


2 TCVEE 


-TB 


CONVERT 




81028930 


1336 


P90A 


2894 


STD 


1 10 




STORE 




81028940 


1337 


C303 


2895 


LD 


3 3 




GET BYTE COUNT 




81026950 


1338 


42FB 


2696 


BSI 


2 TCVBE 


-TB 


CONVERT 




81028960 


1339 


D10D 


2897 


STO 


1 13 




STORE 




81028970 


133A 


1090 


2H96 


SLT 


16 




TO A 




81026980 


133b 


D10E 


2899 


STO 


1 14 




STL3E 




8102899 J 


133C 


C2DB 


2900 


LD 


2 SPACE 


-TB 


GET SPACES 




81029000 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



20NOV72 
431337 
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SELECTOR CHANNEL 
ADDR REL OBJECT 



DIAGNOSTIC/1800 
ST. NO. LABEL 



133D 





D100 


2901 


133E 





D101 


2902 


I33F 





D106 


2903 


1340 





0109 


2904 


1341 





D10C 


2905 


1342 





DIOF 


2906 


1343 





Dill 


2907 


1344 


C 


7»v.F 


2908 


1345 





1000 


2909 


1346 


01 


6780086B 


29 10 
2911 


1~48 





C300 


2912 


1349 





100F 


2913 


134A 


01 


4C10 1372 


2914 


134C 





CA09 


2915 


134D 





D100 


29 16 


134E 





1090 


2917 


134F 





D101 


2918 


1350 





7103 


2919 


1351 





1000 


2920 


1352 





C29c 


2921 


1353 





D0A8 


2921 


1354 





CA17 


2923 
2924 


1355 





leoc 


2925 


1356 





DAC7 


2926 


1357 





108C 


2927 


1358 





1010 


2928 


1359 





1081 


2929 


13SA 





1003 


2930 


135B 





1081 


2931 


135C 





1003 


2932 


135D 





108 1 


2933 


135E 





1003 


2934 


135F 





10c. 1 


2935 


1360 





42FB 


2936 


1361 





D100 


2937 


1362 





10*3 


2938 


1363 





01'. 1 


2939 


1364 





7102 


2940 


1365 





1000 


2941 


1366 





C093 


2942 


136/' 





8297 


2943 


1368 


01 


4C04136E 


2944 


136A 





C2DB 


.?945 


136B 





D100 


2946 


136C 





7101 


2947 


1360 





1000 


2948 


136E 





CAC7 


2949 


136F 


01 


74FF12FC 


2950 



OPCD FT 
STO 1 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



STO 
STO 
STO 
STO 
STO 
STO 
MDX 
NOP 
LDX 



1 
1 
1 
1 
1 
1 
1 

13 



ERT12 



ERT13 



— SNS — 
LD 3 
SLA 
BNN 

LDD 2 
STO 1 
SLT 

STO 1 
MDX 1 
NOP 

LD 2 
STO 
LDD 2 



RTE 

STD 

SLT 

SLA 

SLT 

SLA 

SLT 

SLA 

SLT 

SLA 

SLi 

bSI 

STO 

SLT 

STO 

MDX 

NOP 

LD 

A 

BOD 

LD 

STO 

MDX 

NOP 

LDD 

MDX 



OPERANDS 



1 

6 

9 

12 

15 

17 

15 

EROUT 

GET ?31 
O 

OESNS 
ERT14 

PSNS-TB 
O 

16 

1 
3 

K8-TB 

EfiTHB*3 

SNmDS-TB 

28 

fcRTSV-TB 

12 

16 

1 

3 

1 

3 

1 

3 

1 

TCVBC-TB 



16 

1 

2 

ERTN8+J 

Kl-TB 

* + 4 

SPACE- TB 



1 

ERTSV-TB 
ERTN8+3.-1 



»* 

• * 

SET IN BETWEEN 
SET IN BETWEEN 
SET IN BETWEEN 

CLEAR NEXT SLOT TOO 
BL/MP POINTER 

RESTORE REG 

STUSE INFORMATION 

GET TAGS 

TEST FOR SNS INFO 

BR IF NO 

GET HEADER WORDS 

STORE 

STORE 

3UKP POINTER 



SA"E TEMPORARILY 
GET SENSF. INFO 



MOVE AROUND 
S^VE FOR LOOP 



CONVERT TO HEX 

STORE IN TBLE 

O TO A 

STORE 

BUMP POINTER 

FETCH OUNTER 

ADD 0N_ 

BRANCH IF ODD 

FETCH SPACE CHARACTERS 

PLACE IN PRINT LINE 

ADVANCE PRINT LIfiE POINTER 

GET SENSE INFO BACK 
COUNT 



PART NO. 2279464 
PAGE 3 



ID/SEQNO 

B102901 

81029020 

81029030 

81029040 

81029050 

81029060 

81029070 

81029080 

81029090 

81029100 

810291 1 

61029120 

81029130 

81029140 

81029150 

81029160 

81029170 

81029180 

01029190 

81029200 

8102921 O 

81029220 

81029230 

8102921 

81029250 

8102vr!6C 

81029270 

81029280 

81029290 

81029300 

8102931 O 

8102 932 

81029330 

8'0293-0 

81029350 

81029360 

81029370 

81029380 

81C29390 

81029400 

8102941 

81029420 

81029430 

81029440 

81029450 

81029460 

11029470 

81029480 

81029490 

81029500 



15SEP71 
431328 



20NOV72 
431337 



PROG ID 
PAGE 



081 0-1 

30 
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PART NO. 2279464 
PAGE 3 0A 



SELE< 


;rc 


R CHANNEL 


DIAGNOSTIC/1800 












AODR 


REL OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 




ID/SEQNO 


1371 





70E3 


2951 
2952 


* 


MDX 




ERT13 


LOOP UNTIL FINISHED 


8102951 
8102952 


1372 





C2 8D 


2953 


ERT14 


LD 


2 


TERM-TB 


SET /FFFF AT END 


81029530 


1373 





0100 


2954 




STO 


1 





** 


81029540 


1374 





4204 


2955 




BSI 


2 


TLGMS-TB 


PRINT MESSAGE 


81029550 


1375 


1 


1284 


2956 




DC 




PRINT 




81029560 


13 76 





C2E3 


2957 




LD 


2 


STKSW-TB 


GET SWITCH 


81029570 


1377 


01 


4C201386 


2958 
29 S9 


* 


BNZ 




ERT18 


EXIT IF SET 


81029580 
81029590 


1379 





C300 


2960 


ERT1S 


LD 


3 





GET TAGS 


81029600 


137A 





1009 


2961 




SLA 




OEBYP 




8102961 C 


137B 


01 


4C28137E 


2962 




BN 




ERT16 


BR IF NOT HALT 


8102962 


1370 





4201 


2963 
2964 


* 


BSI 


2 


THALT-TB 


WAIT FOR OPERATOR 


81029630 
810296 


137E 





C300 


2965 


ERT16 


LD 


1 





GET TAGS 


81029650 


137F 





1006 


2966 




SLA 




OEXIT 


TEST FOR OTHER EXIT 


81029660 


1380 


00 


65000000 


2967 


ERT17 


LDX 


LI 


*-* 


RELOAD REGS 


81029670 


1382 


00 


67000300 


2968 




LDX 


L3 


*-* 


*** 


81029680 


1364 


01 


4CA6136A 


2969 
2970 


* 


BN 


I 


ERADR 


BR IF YES 


81029690 
81029700 


1386 


01 


7402086b 


2971 


FRT18 


MDX 


L 


EROUT, 2 


BUMP RETURN BY TWO 


81029710 


1386 


01 


4C80086B 


2972 




BSC 


I 


EPOUT 


EXIT 


81029720 


138A 





0000 


1.973 


ERADR 


D_ 




*-* 


RETURN ADDRESS PL'T HERE 


81029730 








2974 


♦ ♦^♦♦tttlHtttmtJttjJtttttj^ttt^tjjt^,,,,,,,,,^,,^ 


81029740 








2975 


* 








* 


81029750 








2976 


♦ fc*************************************^****:******* 


81029760 








2977 


*************** ******-**********#******************* 


8102S770 








29V8 


* 








* 


8102978-, 








2979 


*******************»*******;•************»***,****** 


81029790 








2980 


* 










81029800 








2981 


* 










8102981 








2982 


****** "J*************************************** ***** 


8102982 








2983 


* 








*s 


81029830 








2984 


*************************************************** 


81029840 


138b 


1 




2985 


TLGME 


EOU 




* 


ENTRY POINT 


81029850 


136b 





C2E1 


2986 




LD 


2 


LGBSY-TB 


GET LOG BUSY 3W 


81029860 


138C 


01 


4C181390 


2987 




B2 




TLGNB 


BR ir= "JOT BUSY 


81029870 


138E 





42F8 


2 988 




BSI 


2 


STMLS-TB 


GO VISIT MONITOR 


81029880 


138F 





70FB 


2989 
2990 


* 


B 




TLGME 


ELSE LOOP 


81029890 
81029900 


1390 





C204 


299 1 


TLGNB 


LD 


2 


TLGMS-TB 


GET CALLING ADDRS 


81029910 


1391 





D2E1 


2992 




STO 


2 


LGBSY-TB 


SET LOG BUSY SW 


8102992 


1392 


01 


D400147F 


2993 




STO 


L 


LEXIT+1 


SET RETURN ADDRS 


81029930 


13V4 


01 


6F 00 1*79 


2994 




STX 


L3 


TLGX3+! 


SAVE REG 


81029940 


1396 


01 


6D00147B 


2995 




STX 


LI 


TLGX3+3 


SAVE REG 


81029950 


1396 





C283 


2996 




LD 


2 


Tswo-ra 


GET OPTION SWS 


81029960 


1399 





100D 


2997 




SLA 




OfaYPR 




81029970 


139A 


01 


4C261476 


2 998 
2999 


* 


BN 




TLGEN 


BR IF BYPASS PRNTOUT 


8102 998 
61029990 


139C 





C294 


3000 




LD 


2 


TLGED-TB 


GET EDIT FOR PRINTER 


8103C000 



DATE 
EC NO. 



14N0V69 
431319 



30JANT0 
431319A 



15SEP71 
431328 



20NOV72 
431337 
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PAGE 31 



SELECTOR CHANNEL D 
ADDR REL OBJECT 
139D 01 4C1013A0 

139F 70FF 



13A0 C'95 

13A1 01 4C1013AF 

13 A3 10 10 

13A4 01 D4001480 

1JA6 O C2A0 

13A7 D225 

13A8 42F8 

13A9 01 74FF08A4 

13AB 70FC 



13AC 

13AD 01 

13AF 00 

13B1 1 

13B2 1 

13B3 1 

13B4 1 



42EI 

6CG01460 

446)0131 

13C8 

0813 

143C 

oaoc 



13B5 O C2E8 

13U6 01 4C0413BD 

13B8 C2AF 

13B9 01 EC00143C 

13BB 0248 

13BC 7004 

13BD C2B2 

13BE 01 EC00143C 
D248 



13C0 
13C1 



C?li3 



13C2 01 EC00143C 
13C4 D24A 



13CS 
13C6 
1JC7 



13CB 
13C9 



EA97 
D24E 
7002 

42F8 
70E5 



13CA 01 6580147F 

13CC C100 

13CL> D001 

13CE 00 65000000 

13D0 01 6D001483 



IAGNOST 
ST. NO. 
3 001 
3002 
3003 
3004 
3005 
3006 
3007 
3C08 
3009 
30 10 
3011 
30 12 
3013 
3014 
3015 
30 16 
3017 
30 18 
3019 
30 20 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
30 28 
3029 
3030 
3031 
3032 
3033 
30 34 
3035 
3036 
3037 
303a 
3039 
30- "• 
30-*! 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 



IC/1800 

LABEL GPCa 

BNN 
********** 

MCX 
********** 
* RELE 
TLG0 1 LD 

BNN 
* 

SLA 
STO 
LD 
STO 
BSI 
MDX 
MDX 
* 

BSI 
STX 
TLG02 bSI 
DC 
DC 
DC 
DC 
* 

LD 
BOD 
* 

LD 
OR 
STO 

HOX 

* 

TLG40 LD 
0.< 
STO 

TLGCM LD 
OR 
STO 
OR 
STO 
COX 

TLG03 BSI 
MDX 

* 

TLG04 LDX 
LD 
STO 
LDX 
STX 



DATE 

tC NO. 



14N0V69 
43)319 



30JAN70 
431319A 



FT OPERANDS 

TLG01 BR IF NOT SELECTED 

*************** ******************«**»**»< 

*-l TRAP STOP 

***************************************** 
ASE SC IN CASE SHARED CHANNEL 
2 TSCED-Tfa GET DDEF 

TLG02 BR IF NOT SEL 



16 
L FRESW 
2 K20-TB 
2 SCSN1-TS 
2 STMLS-TB 
L SCSN1.-1 
*-4 



CLEAR CHANNEL FREED SW 
* 

SET COUNTER FOR OELAY 
*« 

GO TO MONITOR 
DECR. COUNTER 
LOOP UNTIL FINISHED 



T FREDV-TB FREE SEL CHHL 

L FRESW SET SC FREED SW 

1 REQDV REQUEST DEVICE 

TLG03 BUSY RfTURN 

TLGED EDIT FOR PRINTED 

TLGDA AREA COOE GIVLN BACH 

TERM TERMINATOR 

2 T455W-T8 CET 43/53 SW 
TLG40 BR IF 1443 

2 H0100-TB ELSE BUILD WRITE 1UCC 
L TLGDA * 
2 Tl.GWR+1-TB * 

TLGCM « GO TO COMMON RTN 

2 H0530-TB CREATE WR IOCC 

L TLiDA OR IN AREA CODE 

2 TLG.JR+1-TB 

2 H0700-TB CREATE SENSE IOCC 

• . TLGDA OR IN AREA CUDc 

2 TLGSN+1-TB 

2 Kl-TB SET RESET BIT 

2 TLGSR+1-TB •*** 

TLG04 GO "0 PRINT 



2 STMLS-TB 
TLG02 

11 LEX1T+1 
1 C 
T + l 
LI *-* 
LI ILGCH+2 



GO TO MONITOR 
LOOP TO TRY AGAIN 

GET CALLING RTN ADDR 
. GET MSG ALO:-ctSS 

SET FOR LOAD INDEX 

LOAD REG 
SAVE IN "GET CHAR* RTN 



15SEP71 
431328 



20NOV72 
431337 



ID/SEQNO 

8103001 

81030020 

81030030 

81030040 

81030C50 

81030060 

81030070 

81030080 

61030090 

81030100 

8103011 

81030120 

81030130 

810301 40 

8103015 

81030160 

8103017 

81030180 

81030190 

81030200 

8103021 

81030220 

81030230 

81030240 

81C30250 

81000260 

81030270 

81030280 

81030290 

81030300 

810-5031 O 

d:030320 

81030330 

.31030340 

.11030350 

61030360 

61030370 

61030380 

81030390 

81030400 

8103041 

61030420 

81030430 

8103044 D 

81030450 

81030460 

81030470 

810304*0 

8103C490 

81030500 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LIN= DIAGNOSTIC 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



20N0V72 
431337 



PART NO. 22 79464 
PAGE 31 A 



SEL El 


.TO 


R CHANNEL 


DIAGNOSTIC/1800 












ADDR 


REL OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPERAND? 




ID/SEQNO 


13D2 


01 


678008C6 


3051 




LDX 


13 


TLG'.VR 


GET WRD COUNT ADDRESS 


8103051 


13D4 





6816 


3052 
30 53 


* 


STX 


3 


TLGBP+1 


SET FOR BUMPING 


8103052 
81030530 


13D5 





C100 


3054 




LD 


1 





GET FIRST DATA WORD 


61030540 


1306 





F28D 


3055 




EOR 


2 


TERM-TB 


COMPARE WITH /FFFK 


elO3055O 


1307 


01 


4C1813DD 


3056 
30 5V 


* 


BZ 




TLG05 


BR IF YES 


81030560 
81030570 


13D9 





C280 


3058 




LD 


? 


TPID-TB 


GET PID 


81030530 


13DA 





E2BA 


30 59 




AND 


2 


H7FFF-TB 


DROP SELECT BIT 


81030590 


13DB 





42FB 


3060 




BSI 


2 


1CVBE-T6 


CONVERT TO 1443 COOE 


81030600 


13DC 





DB02 


3061 
3062 


* 


STD 


3 


2 


SET IN MSG 


81030610 
81030620 


13DD 





1010 


3063 


TLG0 5 


SLA 




16 


CLEAR - 


81330630 


13DE 





D24C 


3064 




STO 


2 


TLGSW-TB 


v 1ST/2ND CHAR SW 


81030*40 


13DF 





D24D 


3065 




STO 


2 


TLGSW+1-TB * 


8103065C 


13E0 





D05A 


3066 




STO 




TLGIS 


* INTERRUPT SW 


8103066 


13E1 





C2V9 


3067 




LD 


2 


K3-TB 


* 


81030670 


13E2 





D300 


3068 




STO 


3 







81030680 


13E3 





7301 


3069 
30/0 


* 


MDX 


3 


1 


DUMP TO PT TO BUFFER 


81030690 
81030700 


13E4 


01 


4400 146 1 


3071 


TLG06 


BSI 


L 


TLSCH 


GET A CHARACTER 


8103071 G 


13E6 





700F 


3072 




MDX 




TLG07 


COME HERE FOR HEX FF 


81030 720 


13E7 





1008 


3073 




f LA 




8 


PUT IN HIGH ORDER BYTE 


81030730 


13E8 





EA49 


3074 




OR 


2 


TLGSP-TB 


SET LOW ORDER TO SP 


81030740 


13E9 





D303 


3075 




STO 


3 


3 


STORE IN BUFFER 


81330750 


13EA 


00 


74010000 


3076 


TLGBP 


MDX 


L 


*-*,l 


BUMP WORD COUNT 


81030 76 


13EC 


01 


44001481 


3077 




BSI 


L 


TLGCH 


GET ANOTHER CHARACTER 


81030770 


13FE 





7007 


3078 




MDX 




TLG07 


IF CHARACTtR IS HEX FF 


810307. 


13EF 





1866 


3079 




SRT 




8 


CHARACTER TO 


81O30790 


13F0 





C303 


3080 




LD 


3 


3 


GET LAST CHARACTER 


.. 81030800 


13F1 





1808 


20ol 




SRA 




8 


BYTE TO LOW POSITION 


8103081 


13F2 





1086 


3 082 




SLT 




8 


COMBINEC BYTES IN A 


81030820 


13F3 





0303 


3083 




STO 


3 


3 


STORE IN BUFFER 


81030830 


13F4 





7301 


3 004 




MDX 


3 


1 


BUMP SINK 


81030840 


13F5 


u 


70EE 


3085 
3066 


* 


MDX 




TLG06 


LOOP UNTIL HEX Fr 


81030850 
81030860 








3087 


* 


TEST 


FOR 1443. IF 


YES GO TO XIO 


81030870 








3088 


* 


IF , 


053 


DO A CARRIAGE RETURN 


81030680 








3089 


* 










8103089C 


13F6 





C2E6 


3090 


TLG07 


LD 


2 


T45SW-TB 


GET 43/53 SW 


81030900 


13F7 


01 


4C041423 


3091 




BOD 




TLG42 


BR IF 1443 


8103091 








3092 


* 


PUT 


TERMINATOR IN 


MESSAGE 


8103092 


13F9 





C24D 


3093 




LD 


2 


TLGSW+1-TB GET 1ST/2ND CHAR SW 


81030930 


13FA 


01 


4C181 3FE 


3094 




BZ 




TLG08 


BR IF 2ND CHAR 


6103094 


13FC 





C2BE 


3095 




LD 


2 


HFFOO-10 


ELSE GET TERMINATOR 


81030950 


13FD 





D303 


3096 
3097 


* 


SfO 


3 


3 


PUT IN MESSAGE 


81030960 
81030970 


13FE 





C2AE 


3098 


TLG08 


LD 


2 


HOOPF-TB 


GET TERMINATOR 


81030980 


13FF 





EB03 


3099 




OH 


3 


3 


PUT IN MESSAGE 


81030990 


1400 





D303 


3100 




STO 


3 


3 


* 


81031000 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



C/1800 
LABEL OPCD FT OPERANDS 



SELECTOR 


CHANNEL 


01 AGNOSTI 


ADDR REL 


OBJECT 


ST. NO. 
3101 


1401 01 


6500 149F 


3102 


1403 


6936 


3103 


1404 


1010 


3104 


1405 


D24C 


3105 
3106 
3107 
3108 


1406 


C032 


3109 


1407 01 


D400149E 


31 10 


14u9 


7023 


3111 

3112 
3113 
3114 


140A 01 


65801 43A 


31 15 


140C 


C?4C 


3116 


140D 01 


4C1B1416 


3117 
311b 


140F 


1010 


3119 


1410 


D24C 


.1120 


1411 


C100 


3121 


1412 


100U 


312*: 


1413 


7101 


3123 


1414 


6925 


3124 


1415 C 


7005 


3125 
3126 


1416 


C100 


3127 


1417 


1808 


3128 


1418 


1008 


3129 


1419 01 


6C0008CB 


3130 
3131 


1410 


92UC 


3132 


141C 01 


4 C 1 8 1 4 5F 


3133 
3134 


141E 


82BE 


3135 


141F 


1808 


3136 


14 20 Oi 


44001525 


3137 


1422 


D07B 


3138 
'139 
il40 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



LDX LI TLGSA+1 SET UP BUFFER POINTER 

STX 1 TLGSV SAVE 

SLA 16 CLEAR- 

STO 2 TLGSW-TB * SECOND CHAR SW 

START LINE WITH A **CARRIAGE RETURN** 



LO TLG^.R 
STO L TLG3A 
MDX TLG43 



GET CR CHAR*CTER 
PUT IN OUTPUT AREA 
GO PRINT 



COME HERE FROM INTERRUPT ROUTINE IF 1053 



TLGPR LDX II TLGSV 



RESTORE POINTER 



LD 2 TLGS»-TB GET 2ND CHAR SW 
BZ TLG09 BR IF O (CHAR 1) 

ELSE RESET SW 



GET CHARACTERS 
SAVE 2ND CHAR 
riUMP POINTER 
SAVE POINTER 

GU TO COMMON HTN 



SLA 16 

STO 2 TLGSW-TB 

LD 1 

SLA 8 

MDX 1 1 

STX 1 TLGSV 

MDX TLG10 

* GET HERE IF PRINTING CHARACTER « 
TLG09 LD 10 GET CHARACTERS 

SRA 8 

SLA 8 

STX L ILGSw SET 2ND CHAR SW 

* GET HERE IF PRINTING CHARACTER 2 

TLG10 S 2 HFFOO-TB TEST FOR KND OF LINE 

BZ TLGX2 HR IF YES 

* 

A 2 HFFOO-TB ELSE RESTORE CHAR 

SR . 6 RIGHT JUSTIFY CHAR 

BSI L TCV45 CONVERT TO 18 16 CODE 

STO TLGBA PUT IN OUTPUT AREA 

* 

♦a********************************************* 

* 

*********************************************** 

* 

* DO XIO WRITE- 

* PRINT A LINE ( 1443) 

* PRINT A CHARACTER (1353) 

* 

**##*#ij*#************************************** 

* 

a****************************** v *************** 



vWi 



PART NO. 2279464 
PAGE 32 



ID/StONO 
8103101 
81031020 
81031030 
81031040 
81031050 
81031060 
81031070 
81031080 
81031090 
81031100 
8103111 
81031120 
81031 130 
81031140 
81031 150 
81031160 
81031170 
81031 180 
81031190 
81031200 
810312' 
810312..0 
81031230 
91031240 
81021250 
81031260 
81031270 
81031280 
810312 JO 
P1031300 
8103131 
81031320 
81031330 
81031340 
81031350 
81031360 
81031370 
81031380 
81031390 
t 81031400 
» 8103141 

* 81031420 
8103' 430 
81031440 
81031450 
81031460 
81031470 

* 810314(10 

* 81031490 

* 81031500 



rB J ^aJ tH ^i VfcM mr-Ji wa*u mmi wmmi -u.*J ***! «_*J &S&J w»A ,*^ii wuk,i f**J ***J tftfhJ *««J i 



15SEP71 
431328 



20N0V72 
431337 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



PART NO. 22 79464 
PAGE 32A 



SELEC 


ITOR CHANNEL 


DIAGNOSTIC/1800 












ADDR 


REL OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 




ID/5EQNO 


1423 





0A49 


3151 
3152 


* 
TLG42 


XIO 


2 


TLGSN-TB 


SENSE DSW 


81031510 
81031520 


1424 





1800 


3153 




RTE 




16 


SAVE 


81031530 


14 25 





C2E8 


3154 




LD 


2 


T45SW-TB 


GET 43/53 SW 


810.-»154C 


1426 





4804 


3155 




SKP 




E 


SKIP IF 53 


81031550 


1427 





108A 


3156 




SLT 




10 


SHIFT 31 FOR 43 


81031560 


1428 





1095 


3157 




SLT 




21 


SHIFT 2 1 FOR 53 


81031E70 


1429 


01 


4C10142D 


3158 




BNN 




TLG43 


BR IF READY 


81031580 


1428 





42F8 


3159 




BSI 


2 


STMLS-TB 


ELSE GO 70 MONITOR 


81031590 


142C 





70F6 


3160 
3161 


* 


MDX 




TLG42 


LOOP UNTIL READY 


81031600 
81031610 


1420 





0A47 


3162 
3163 


TLC43 

* 


XIO 


2 


TLGWR-TB 




81031620 
81031630 


142fe 





660C 


3164 




STX 




TLGIS 


SET INT SW 


81031640 


142F 





C2 8D 


3165 




LD 


2 


TERM-7B 


GET /FFFF 


81031650 


1430 





D24B 


3166 
3167 


* 


STO 


2 


TLGCT-TB 


SET LOOP COUNT 


8103166 
81031670 


1431 
1432 







42F8 
C008 


3168 
3169 


TLG11 


BSI 
LD 


2 


STMLS-T6 
TLGIS 


GU TO MONITOR 
TEST FOR INT 


81031680 
81031690 


1433 


01 


4C18145B 


3170 




BZ 




TLGXR 


BR IF IT HAPPENED 


81031700 


1435 
1437 


01 




74FF06CA 
70F9 


3171 
3172 
3173 


MDX L TLGCT.-l DECR COUNT 
MDX TLG11 LOOP 

********«**ft***¥***«**«**«*$S**t****** :.-**********«* 


8103171 
8 t 3 1 72 
81031730 


1438 





70FF 


3174 
3175 


MDX 


*-l TRAP STOP 

»*J************»****4***»*»******##*** 


81031 740 
81031750 








3176 
3177 
3178 


* 
********** 

* 


•"*************#**«#*# $ **#««*$*««*««£**««* 

* 


8103176 
810/1 770 
81031 V80 








3179 


«t<«tt«««««tt««tt'v««t«|> v ttt|r«*«*ttt**«**<»>*<«***> 


81031790 








3180 
3181 


* 


PRINT INTERRUPT ROUTINE 


810318C0 
81031810 


1439 
143A 
1438 







8100 
0000 
0000 


3182 

3183 
3134 
3185 


* 

TLGCR 
TLGSV 
TLGIS 


DC 
DC 
DC 




/8100 

*-* 



CARRIAGE *RETURN 
SAVE BUFFER POINTER 
INT SW 


81031820 
81031830 
81031840 
81031850 


143C 

143D 
14 3E 




01 


0000 
0000 
6E001458 


3186 
3187 

3188 


TLGOA 
TLGIN 


DC 
OC 
STX 


L2 


*-* 
*-* 

TI.G14+1 


AREA CODE PUT H C .RE BY MON 
IN.ERRUPT ENTRY POINT 
SAVE XH2 


8103186 
81031870 
81031880 


1440 
1442 
1443 


01 






66000cJ7F 

C0F8 

4818 


3189 
3190 
3191 




LDX 

LD 

SKP 


L£ 


TB 

TLGIS 

+- 


SET XR2 

GET INT SWITCH 

SKIP IF NONZERO 


81031890 
81031900 
8103191 


1444 





70FF 


3192 
3193 


******?■**********************************♦**«***** 
MDX *-l TRAP STOP 


81031920 
31031930 


1445 
1447 


01 
01 


0C0008CC 
4C28144D 


3194 
3195 
.5196 
3197 


**********¥********¥****#************************:.* 

XIO L TLGSR SENSE RESET DSW 

BN TLG12 BR IF XFER COMPLETE (1443 
* * OR SVC RESPONSE (1053) 


81031940 
81G31950 
8103196 
91031970 


1449 
144A 




01 


1C02 

4C261455 


3198 
3199 




SLA 

BN 




2 
TLG13 


TEST FOR PRINT COMPLETE 
1R IF YES 


81031980 
81031' JO 








3200 


#*#***#**********#********************v********-x*** 


8.03200 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



20N0V72 
431337 
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IPM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 



PART NO. 2279464 
PAGE 33 



SELECTOR CHANNEL 
ADDR REL OBJECT 
144C 70FF 



144D 

144E 

144F 

14b0 01 

1452 

1453 01 



18D0 

C2E8 

F297 

4C201455 

1092 

4C101A57 



1455 1010 

1456 O D0E4 

1457 00 66000000 
1459 01 4C80143D 



1451 C042 

145C 1B08 

14SD 01 4C20140A 

145F 01 67H006C6 



1461 
14 63 
14; * 
1465 
1466 
1467 
1468 
1469 



01 

C 









o 
o 



146A 



6F0013E6 

f.299 

D300 

7301 

10A0 

DB01 

D24C 

>017 

70 02 



146B 01 4C0013E7 



14 60 
14 6F 
1470 
1471 
1472 
1473 



JO 44U00 132 
1 08 13 
1 080C 
COOE 
4820 
42F2 



1474 

1475 



1010 

DOOA 



1476 01 7401J47F 

1478 00 67000000 

147A 00 65000000 

147C 1010 



DIAGNOSTI 
ST. NO. 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
321 1 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
J222 
3223 
322-t 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
32 34 
3235 
32 36 
3237 
32 38 
3239 
32 40 
1241 
-242 
32-»3 
3244 
3245 
3246 
3247 
3248 
3249 
32 50 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



C/1800 
LABEL OPCD FT OPERANDS 

MDX *-l TRAP STOP 

**«S******** a************************************** 



TLG12 RTE 
LD 
EOR 
BNZ 
SLT 
BNN 

* 

TLG13 SLA 
STO 



16 
2 T45SW-TB 
2 Kl-TB 

TLG13 

18 

TLG13/2 

16 
TLGIS 



TLG14 LDX L2 *-* 

BSC I TLGIN 



SAVE DSW 

GET 43/53 SW 

TEST FOR 1443 

BR IF 1053 
GET DSW (PRINT COMPLETE) 



CLEAR INT SWITCH 
RESTORE XR2 
EXIT INT RTN 



*************************************************** 
» * 

♦ it***********************************************"' 
« 

* MONITOR COMES HFRE FROM INT HTN 



TLOXR LD TLGSA 

SRA 8 

BNZ TLGPR 
* 

TLGX2 LDX 13 TLCWR 

STX L3 TLGHP+1 

Lf> 2 K3-TJ 

STO 3 

MDX 3 1 

SLT 



STO 
STO 
BSI 
HDX 
BSC 

TLG15 BSI 
DC 

DC 
LD 
OSC 
BSI 

SLA 
STO 



32 
3 1 

2 TLGSW-TB 
TL&CH 
TLGlb 
L TLG0»> + 3 

I WfcLDV 
TLGEC 
TERM 
FRESW 

Z 



GET WORD CNT 

TEST FOR 1053 CHAR 
BR IF 1053 

GST BUFFER ADDRESS 
SET PTR TO WORD COUNT 
SET WRD CNT=3 
*** 

BUMP POINTER 

SET PIO=BLANKS IN MESSAGE 
e 

RESET 1ST/2ND CHAR SW 
uET A CHARACTER 
HERE IF HEX /OOFF 
ELSE LOOP 



GO RELEASE DVC 
ADDRS OF EDIT WRD 



GET CHNL RELS SW 
SKIP IF NOT SET 



2 GETDV-Tb ELSF GET CHNL 



16 
FRESW 



RESET- 

♦ CHNL RELS SW 



TLGEN MDX L LEXIT+1,1 HUMP RETURN BY 1 

TLGX3 LDX L3 *-* RESTORE REG 

LDX _1 *-* RESTORE rtEG 

SLA 16 RESET LOG BUSY SW 



15SEP71 
431328 



2 0NOV72 
431337 



ID/SEONO 

8103201 

81032020 

81032030 

81032040 

81032050 

81032060 

81032070 

81032080 

81032090 

31032130 

8103211 

81032120 

81032130 

81032140 

810 32150 

81032160 

81032170 

810321 hO 

8103219C 

81032200 

8103221 

6103"220 

81032230 

810322-0 

8103225 

810322 60 

8i032270 

81032280 

81032290 

81032300 

01032 Jl 

H1032320 

8103233 

81032340 

81022350 

81032360 

81032370 

81032380 

81032390 

81032400 

8103241 

81032420 

81032 430 

81032440 

sios^so 

81032460 
81032470 
81032480 
81032490 
81032500 
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SELECTOR CHANNEL 
ADDR REL OBJECT 
147D O t>2fcl 
147E 00 4CO0OOOO 

1480 0000 



ltftl COOO 

1482 00 65000000 

1484 C24D 

1485 01 4C2014bC 
14»7 01 6C0008CC 
1469 C100 
148A 1808 
146o 7007 



148C 
148D 
148E 
148F 
1490 
1491 



1010 

D24D 
ClOO 
1008 
1808 
7101 
6CF0 



149J 01 4C201496 

1495 O C249 

1496 F2AE 

1497 01 4C981481 
1499 F2AE 
149A 01 740114b! 
149C 01 4CU014bi 

149E OOOO 

149E O 0000 
149F 0006 
14A2 0032 



DIAGNOSTI 
ST. NO. 
3251 
3252 
32 53 
3254 
3255 
3256 
32S7 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
32/6 
3277 
3278 
3279 
3280 
328 1 
3282 
3203 
3284 
3285 
3266 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 



DATE 

EC NO. 



14N0V69 
431319 



30 JAN7 
431319A 



c/iaoo 

LABEL OPCD FT OPERANDS 
STO 2 IG6SY-TB 

LEXIT oSC L *-* 



EXIT PRINT RTN 



,***********< 



CHNL RELEASED SW 

***************************** 

* 
**************************** t *********** *********** 



FRESW DC 

********* 



FETCH ONE CHARACTER FROM SOURCE MESSAGE 



TLGCH 



TLG16 



DC 

LDX 

LC 

BNZ 

STX 

LD 

SRA 

MDX 

SLA 

STO 

LD 

FLA 

SRA 

MDX 

STX 



TLG17 BNZ 

LD 
TLG18 EOR 

BZ 
EOR 

;jdx 
BSC 



LI 
2 



1 



*-* 

*-* 

TLGSW+1 

TLG16 

TlGSW+1 

c 

8 
TLG17 



ENTRY POINT 
SET UP POINTER 
-TB GET 1/2 CHAR SW 
BR IF SET 
SET 1/2 CHAR SW 
GET TWO CHARACTERS 
KECP HIGH ORDER ONE 
GO TO CMN RTN 



1 



16 

TLGSW+1-TB 

O 

8 

a 

1 

TLGCH+2 



CLEAR 1ST/2ND CHAR 

GET TWO CHARACTERS 
KEEP LOW ORDER ONE 
**** 

BUMP SOURCE POINTER 
SAVE 



SWITCH 



ID/SEQNO 

8"032510 

81C32 520 

S1032530 

81O32540 

81032550 

81032560 

81032570 

810 32 58 

81032590 

81032 60 

81032610 

81032 62 

81032630 

81032 640 

81032650 

81032 660 

BIO J2670 

81032680 

81032690 

81032 700 

8103271 

81032 72 

a>1032730 

81032740 

81032750 

810 32 76 

81032770 

81032780 

81032790 

81032 800 

81032^10 

81032 820 

810328.'0 

81032840 

81032850 

81032860 

81032870 

81032880 

81032890 

81032900 

81032910 

*************************************************** ol 3292 

81032930 
8103294 
81032950 
8103296 
CONVERT HEX WORD TO 1443 CODE 



TLG18 
TLGtP-T9 
HOOFF-TB 
TLGCH 



SET TO SPACE IF ZERO 
*** 
TEST FOR HEX FF 
EXIT IF HEX FF 



HOOrF-TB RE-I.JVERT IT 



TLGCH, 1 
TLGCH 



BUMP kEIUfi.i ADDRESS 
EXIT THIS RTN 



TLGBA 



BSS 
DC 

DMES 
BSS 



XXXX 'E 



WORD COUNT FOP PRNT LINE 
PID GOES HERE 
LENGTH OF BUFFCR 

**»***.********************->************************ 

* 



50 



****************** ********************************* 
* * 

■J*****,*********************-*********************** 



********************************** 



=**************** 



8103297C 
8 103298 
81032990 
81033000 



15SEP71 
431328 



20N0V72 
431 33-' 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1600 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOST!C 



PART NO. 2279464 
PAGE 34 





o 
o 



SELECTOR CHANNEL 
ADDR REL OBJECT 



14D4 



1404 





1800 


1405 





400E 


14D6 





1008 


I4D7 





02C4 


1408 





400b 


1409 





EAC4 


14DA 





D2C4 


140B 





4008 


14DC 





1008 


1400 





D2Cb 


14DE 





400b 


14 OF 





E4C5 


14E0 





If 90 


14E1 





CtC4 


14E2 


01 


4L80 


14E4 





0000 


14fcb 





1010 


14E6 





1004 



DIAGNOSTIC/1800 
ST. NO. LABEL CPCD FT OPERANDS 



14EV 01 4C2014EC 

14E? C2A6 

14EA 01 4C8014E4 

14EC 929E 

14ED 46J0 

14EE 8;'A9 

14EF U29E 

14F0 01 4C6014E4 



14F2 01 4CA8087D 

14F4 1890 

14F5 AAAS 

14F6 100C 



3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3^20 
3321 
3322 
3323 
3324 
332S 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
333 5 
3336 
3337 
3338 
3^39 
33 »0 
3341 
33 42 
3343 
3344 
3345 
33 46 
3347 
33 48 
3349 
33 50 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



TCVBN ECU 

* 

RTE 

BSI 

SLA 

STO 

BSI 

OR 

STO 



BSI 

SLA 

STO 

BSI 

D« 

SRT 

LD 

BSC 

TCV01 OC 
SLA 
St-T 
8NZ 
LD 
dSC 

* 

TCV02 S 

SKP 

A 
A 



16 

TCV01 

8 
2 TOVSl-Tb 

TCVul 
2 TCVS1-TB 
2 TCV51-TB 



TCV01 

8 
2 TCVS2-TB 

TCV01 
2 TCVS2-T6 

16 
2 TCVSl-TB 
I TCVBE 

»-» 
16 
4 

TCV02 
2 HOOOA-TB 
I TCV01 

2 K9-TB 

L- 
2 MG027-Tb 
2 K9-TB 



ENTRY POINT 



GET NEXT CHARACTER 



GET NEXT CHARACTER 



GET NEXT CHARACTER 



GET NEXT CHARACTER 



BSC 1 TCV01 



BR IF NOT ZERO 

0=/0A 
EXIT 

SOBTR/CT 9 

ADD BACK A CONSTANT 

EXIT 



* * 

* 

* CONVERT f^X TO DECIMAL. * REG TO A REG 
* 

* *** CALL - BSI 2 TCVHD-TB »** 

* ♦ 

* 

THEXD BM I TCVHD EXIT IF t.'EG 

SPT 16 

D 2 K1000-TB MOST SIGNIFICANT DIGIT 

SLA 12 POSITION 'JIGIT 



ID/SEONO 
8103301 
81033020 
81033030 
81033040 
81033050 
31033060 
81033070 
81033080 
81033090 
81033100 
8103311 
81033120 
81033130 
810331 40 
81033150 
81033160 
61033170 
810331 BO 
H 10 331 90 
81033.".00 
8103321 1 
8103322O 
810JJ230 
81033240 
81033250 
81033260 
81033270 
81033280 
01033290 
81033300 
i, 10 3331 
81033320 
81033330 
81033340 
81033JS0 
810 3336 i 
81033370 
H1033380 
81033390 
81033400 
8103341 
elO3T420 
81033' 30 
81033440 
81033450 
81033460 
81033470 
810334G0 
31033490 
01033500 



15SEP71 
431328 



20NOV72 
431337 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-:.INE DIAGNOSTIC 



SELECTOR CHANNEL 
ADDR REL OBJECT 
14F7 0000 
14F8 1004 



14F9 





AAA1 


14FA 





1008 


14FB 





E809 


14FC 





D008 


14FC 





1008 


14FE 





AA9F 


14FF 





108C 


1500 





180C 


1501 





1084 


1502 





E802 



1503 01 4C80087D 



1505 0000 



1506 





ocoo 


1507 





6B0A 


1508 


01 


67800815 


150A 


01 


C7001515 


150C 





1890 


1500 


01 


67e008C0 


150F 


01 


C7001514 


1511 


00 


67000000 



1513 01 4C601506 



0020 



DI AGNOS 
ST. NO. 
33 51 
3352 
33 53 
3354 
33 55 
3356 
33 57 
3358 
33 59 
3360 
33 61 
3362 
33 63 
3364 
3365 
3366 
33 67 
3368 
33 69 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
33/9 
3380 
3381 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
32?6 
3397 
33?>8 
3399 
3400 



TIC/1800 

LABEL OPCD FT OPERANDS 
STO THEXS 
SLA 4 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



D 


2 


K100-TB 


SLA 




8 


OR 




THEXS 


STO 




THEXS 


SLA 




8 


D 


2 


KIO-TB 


SLT 




12 


SRA 




12 


SLT 




4 


OR 




THEXS 


BSC 


I 


TCVHO 


THEXS DC 








CLEAR A REG 



NEXT SIGNIFICANT DIGIT 
POSITION DIGIT 



CLEAR A REG 

NEXT SIGNIFICANT DiGIT 
COMBINE LAST TWO DIGITS 

»** 



TEMP STORAGE 

it************************************************** 
*♦»**>**»*****»***»**#*********»*******»*********** 

* * 

* 

* CALL BSI L TCVSR 

* GET AO = SPACE/SECT/SPACE/KTN 

* 

* * 

TC'SR DC *-* 

SAVE REG 

GET ROUTINE NUMBER 

GT PRINTABLE CODE 

A TO Q 

GET SECT NUMBER 

GET PRINTABLE CODE 

RESTORE REG 

EXIT 



STX 3 TCVSZ+1 

LDX 13 TRIO 

LD L3 DIGIT 

SRT 16 

LTX 13 TSID 

LD L3 DIGIT-1 

TCVSZ LDX L3 *-* 

BSC I TCVSR 



DIGIT DILI'S 1 0123456789ABCDE F"E 

* « 

* CONVERT 1443 CODE TO 1316/1053 CODE 



PART NO. 2279464 
PAGE 34A 



ID/SEONO 
81033510 
81033 S20 
81033530 
8103354 
81033550 
81033560 
81033570 
81033530 
81033590 
81033600 
8103361 O 
£103362 
81033630 
31033640 
81033650 
81033660 
81033670 
81033680 
81033690 
81033700 
81033710 
8103372 
81033730 
•11033740 
81033750 
81033760 
81033770 
81033780 
8103379C 
81033800 
81C3381 
81033820 
81033830 
81033840 
81033850 
81033860 
81033870 
81 03388 
81033890 
81033900 
8103391 
8103392 
81033930 
8103394 
81033950 
81033960 
81033970 
81033990 
810339 .0 
81034000 



15SEP71 
431328 



20NOV72 
431337 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 
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PAGE 35 



G 



SELECTOR CHANNEL 


DIAGNOSTIC/1 e00 












AODR R£L OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 




ID/SEONO 






3401 


»*»»********»«********* 


«e?«?*?««*3*«********4«*v*** 


8103401 


1525 


0000 


3402 


TCV4S 


DC 




*-» 




81034020 


1526 


6B4S 


3403 




STX 


3 


TCVSV+1 




81034030 


1527 


D043 


3404 




STO 




TCVSV 


SAVE 1443 CHAR 


81034040 


1526 01 


6700153E 


3405 




LDX 


L3 


TCVTB 


SET UP POINTER 


81034050 


152A 


10A0 


3406 




SLT 




32 


CLEAR AO 


81034060 


1523 


C300 


3407 


TCV03 


LD 


3 





PICK UP NEXT ENTRY IN T6L 


81034070 


152C 


18C8 


3'.08 




RTE 




8 


DELETE TR CHAR 


81034080 


1S2D 


F03D 


3409 




EOR 




TCVSV 


TEST CHAR 


81034090 


152E 01 


4C181537 


3410 
3411 


* 


BZ 




TCV04 


CHAR COMPARES 


81034100 
810341 1 


1530 


1088 


3412 




SLT 




8 


RESTORE REG=0 


81034120 


1531 


E2AE 


3413 




AND 


2 


HOOFF-TB 


SET UP TO TEST 


31034130 


1532 


F2AE 


3414 




EOR 


2 


HOOF^-TB 


* FOP. TERMINATOR 


81034140 


1533 01 


4C181539 


T-415 
3416 


* 


B." 




TCVEN 


GO TO END ROUTINE 


81034150 
81034160 


1535 


7301 


3417 




MO." 


3 


1 


INC POINTER 


31 034170 


1536 


70F4 


2418 
3419 


* 


MDX 




TCV03 


RETURN TO LOOP 


81034180 
810 3 4 19 


153 7 


18D0 


3420 


TCV04 


XCH 






RESTORE TR CHAk 


81034200 


153a 


4313 


3421 
34 22 


* 


SKP 




+ - 


EXIT 


8103421 
81C34 20 


1539 


C030 


3423 


TCVEN 


LD 




TCVSP 


SET U^ SPACE 


81034230 


153A 01 


670C156C 


3424 




lpx 


L3 


TCVSV+1 


RESTORE XR3 


81034240 


153C 01 


4C801SP5 


3425 




3SC 


! 


TCV45 


EXIT 


t"»! 03425 






3426 


r**** 


', * <: * ?■ 


S*:<:.»***3*****«»#«s*3*******«**53**e* *«**»** 


0;03«260 






3427 


* 








■■ 


31034270 






3428 


**»634«cttt 


«»- 


*tt;t***a«^n«s*-His3«-)*st^c-isi;f3o*rb* 


eior"»2fio 


153E 


31 3E 


3429 


TCVTJ 


DC 




/J13E 


A( 1443.TILT-SOTATE) 


Hi 03'* ^9 


153F 


321A 


3430 




»c 




/321A 


B 


81034300 


1540 


33 IE 


3431 




DC 




/3J1E 


C 


8103431 


154 1 


3432 


3432 




DC 




/3432 


D 


81u343?0 


1542 


3536 


3433 




DC 




Z3536 


r 


8103433 


1543 C 


3612 


3434 




DC 




/3612 


F 


81034340 


1544 


3716 


3435 




DC 




/3716 


G 


81034350 


15*5 f 


382o 


3436 




DC 




/3026 


H 


81034360 


1546 


3922 


3437 




Dv. 




Z3922 


I 


81034370 


154 7 


217E 


3438 




DC 




/217E 


J 


61034380 


1540 


225A 


3439 




DC 




/225A 


K 


81034390 


154 9 


235£ 


3440 




DC 




/235E 


L 


81034400 


154 A 


2472 


3441 




DC 




/2'.72 


M 


8103441 


154B 


25 76 


3442 




DC 




/2576 


N 


8:034420 


154C 


2652 


3443 




DC 




/2C52 





ei034430 


154D 


2766 


3444 




DC 




/2756 


P 


81034440 


1S4E 


2866 


3445 




DC 




/2B66 


Q 


81C34450 


154F 


2962 


3446 




DC 




/2962 


R 


81034460 


1550 


129A 


3447 




DC 




/129A 


S 


81034470 


1551 


139E 


3448 




DC 




/130E 


T 


81034*80 


1552 


1462 


3449 




DC 




/14B2 


U 


8103'490 


1553 


15B6 


3450 




DC 




/15B6 


V 


81034500 



DATE 
EC NO. 



14N0V69 
431319 



30JAN70 
431319A 



15SEP71 

43132S 



20NOV72 
431337 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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DATE 
EC NO. 



14NOV69 
431319 



30JAN70 
431319A 



15SEP71 
431328 



20NOV72 
431337 



PART NO. 2279464 
PAGE 35A 



SELECTOR CHANNEL 


DIAGNOSTIC/ 1800 












ADDR 


REL OBJECT 


ST. NO. 


LABEL 


OPCD 


FT OPERANDS 






ID/SEONO 


1554 





1692 


3451 




DC 


/1692 


W 




81034510 


1555 





1796 


3452 




DC 


/1796 


X 




81034520 


1556 





18A6 


3453 




DC 


/18A6 


Y 




81034530 


1557 





19A2 


3454 
3455 


* 


DC 


/19A2 


Z 




81034340 
61u3455G 


1558 





01FC 


3456 




DC 


/01FC 


1 < 1443, 


TILT-ROTATE) 


81034560 


1559 





02D8 


3457 




DC 


/02D8 


2 




61034570 


155A 





03DC 


3458 




DC 


/03DC 


3 




ei034580 


155B 





04F0 


3459 




DC 


/04F0 


4 




81034590 


155C 





05F4 


3460 




DC 


/05F4 


5 




8103' 600 


155D 





06DO 


3461 




DC 


/06D0 


6 




81034610 


155E 





07D4 


3462 




DC 


/07D4 


7 




8103462 


155F 





08E4 


3463 




DC 


/08E4 


8 




81034630 


1560 





09E0 


3464 




DC 


/09E0 


9 




81 334640 


1561 





0AC4 


3465 
3466 


# 


DC 


/0AC4 







81034650 
81334660 


1562 





00C1 


3467 




DC 


/0021 


SPl 1443 


.TILT-ROTATE) 


81034670 


1563 





2CD6 


3468 




DC 


/2CD6 


* 




8103468C 


1564 





1CFE 


3469 




DC 


/1CFC 


< 




81034690 


1565 





3CF6 


3470 




DC 


/3<F6 


) 




81034700 


1566 





11BC 


3471 




DC 


/I 1BC 


/ 




8103471 


1567 





2084 


3472 




DC 


/2084 


- 




8103472 


1568 





0BC2 


3473 




DC 


/0BC2 


= 




81034730 


1569 





OOFF 


3474 


TCVTC 


DC 


/OOFF 


TERM 




81034740 


156 A 





2100 


3475 


TCVSP 


DC 


/2100 


SPACE 




81034750 


15 6B 





0000 


3476 


TCVSV 


DC 





TEMP STORAGE 


81034760 


I5f C 





0000 


3477 




DC 









81034770 


15 6C 


1 




3478 


PEND 


FQ'J 


*-l 


END OF 


PGM 


81' , 347C0 


156E 




0939 


3479 




END 


BGIN 


XFER ADDRESS 


81034790 
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PAGE 36 











CROSS-REFERENCE 




SYMBOL 


VALUE 


REL DEFN 


REFERENCES 








BEGIN 


012C 





0012 


0013 


0424 








^GIN 


0939 


1 


0424 


3479 










BYPAD 


2000 





0181 


0708 


0812 








BYPBC 


1000 





0182 


0708 


0812 








BYPCS 


8000 





0179 












BYPUS 


4000 





0180 


0708 


0812 








CAWSV 


0845 




0119 


2956 










CCW12 


OABC 




0806 


0793 


0796 


0799 


0802 




CCWS3 


0B04 




0693 


0843 










r ;wi4 


0B38 




0958 


0927 


0954 








CCW15 


0B67 




1015 


0991 


1022 








CCW16 


0BB4 




HOC 


1053 


1C60 


1096 






CC*17 


0BE4 




1157 


1133 










CCW18 


0C26 




1232 


1196 


1239 


2048 






CCW19 


oceo 




1317 


1275 


1313 








CCW21 


0CE6 




1414 


1383 


1424 








CCW22 


0t3B 




1496 


1461 


15»B 








CCW23 


0>94 




1=81 


154 6 


1538 








CCW24 


C->E9 




1661 


1626 


1668 








CCW2S 


0E3B 




174 1 


1706 


1748 








CCW26 


0E65 




1809 


1786 


1821 








CCW31 


OEDB 




1920 


1880 


1027 








CCW32 


0F25 




2004 


1966 


2014 








CCW33 


OFCA 




2130 


2054 


2058 


2093 


2137 




CNTDN 


083E 




t 0112 












CNTRL 


0U68 




0146 


0590 


0690 


0786 


0B74 


0944 100H 1081 1150 1226 










1299 


1331 


1409 


1490 


1575 1655 1735 1803 1931 










1910 


1991 


2097 


214/ 


2185 


CRCK 


0133 




3 0019 


0020 










CSWll 


0A63 




I 0707 


0696 










CSW12 


OABF 




1 0811 


0748 


0756 


0764 


0772 




CSW13 


OAFC 




1 0892 


0853 


0662 








CSW14 


0B34 




1 0952 


09" •> 










CSW15 


0B6A 




1 1020 


0996 










CSW16 


OBOO 




1 1094 


1057 


1064 


106 7 


1083 




CSW17 


0bE7 




1 1162 


1138 










CSW18 


0C29 




1 1237 


1205 










CSVK19 


0C7C 




1 1311 


12S3 










CSW21 


OCEC 




1 1422 


1391 










CSW22 


0D41 




1 506 


1469 










CSW23 


0D97 




1 1586 


15S4 










CSW24 


ODEC 




1 1666 


1634 










CSW25 


0E3E 




1 1746 


1714 










CSW26 


0E8B 




1 1619 


1791 










CSW31 


OEDE 




1 1925 


1895 










CSW32 


0F36 




1 2012 


1971 


1976 








CUU11 


09EE 




1 0602 


0537 










DIGIT 


1515 




1 3392 


3385 


3388 








DVADR 


085D 




1 0132 


0534 


0737 


1888 


1691 


1899 1917 2202 2363 2403 
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SYMBOL 


VALUE 


REL 


DEFN 


REFERENCES 






















2325 
















END 


012E 





0014 


0015 


2170 














EPA 


0808 




0046 


















Eft ADR 


138A 




2973 


2969 
















ERASE 


00 1 1 




0212 


















ERMSG 


127E 




2781 


2308 


2812 


2818 


2820 


2822 


2346 






EROUT 


086B 




0149 


1212 


1305 


1398 


1*76 


1561 


1641 


1721 


1997 2112 










2117 


2319 


2399 


2511 


2788 


2829 


2910 


2971 2S72 


ERROR 


0130 




0016 


0017 
















ERTNE 


12C0 




2784 


0150 
















ERTN2 


12C4 




2788 


















ERTN3 


12CC 




2795 


2791 
















ERTN4 


12D6 




280* 


2603 


2810 














ERTN5 


12E0 




2812 


2806 
















ERTN6 


12E4 




2016 


2799 
















ERTN7 


12ED 




2825 


2814 
















ERTN8 


12F9 




2838 


283 5 


2843 


2922 


2942 


2950 








ERTN9 


1302 




2845 


2041 
















ERTSV 


0846 




0120 


2926 


2949 














ERTSW 


093F 




0'. 13 


2050 


2056 


2073 


2244 


2282 


2 473 






ERT10 


1304 




2846 


2797 
















ERT11 


1316 




2864 


2852 
















ERT12 


1348 




2912 


2866 
















ERT13 


1355 




2925 


2951 
















ERT14 


1372 




2953 


2914 
















ERT1S 


1379 




2960 


2850 
















FRTlfc 


137E 




2965 


2962 
















ERT17 


13S0 




2967 


2785 


2786 














ERT18 


1386 




'971 


2956 
















FBRST 


0004 





0275 


















FDRDY 


0013 





0284 


















FECYL 


001D 





0287 


















FEOCY 


OOOA 





0279 


















FLCCH 


0040 





0197 


1497 
















FLDCH 


ooeo 





0196 


141 5 
















Fi_PCI 


0010 





0200 


















FLSKP 


0008 





0199 


















FLSLI 


0020 





0193 


1233 


1419 


1502 


1662 


1815 








FNORC 


oooc 





0280 


















FONLN 


00 19 





0285 












t 






FOVRN 


0005 





0276 


















FRDVE 


1016 


1 


2238 


0153 
















FREDV 


08£E 


1 


0152 


0520 


0687 


0783 


0371 


0941 


1005 


1078 


1147 1223 










1296 


1*06 


14C7 


1572 


1652 


1732 


1800 


1907 1988 










2094 


2245 


3017 












FRESW 


1480 


1 


3254 


0438 


3010 


3018 


3240 


3245 








FSERD 


0012 





0282 


















FSKCX 


0C07 





0277 


















FSKIN 


001F 





0288 


















FTROV 


0009 





0278 
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SYMBOL 

FUNSF 

KUNSI 

FUNSL 

CETOV 



GTDVE 

GT0V1 

HA 

L ICOOO 

HFFOO 

HFOOO 

HIOXX 

HOAOO 

HOEOO 

H00C6 

H00C8 

HOOFF 

HOOOA 

HOC 11 

H0013 

H0027 

H0070 

H0080 

H0100 

H020" 

H040o 

HOSOO 

H0700 

H2100 

H3000 

H4000 

H5000 

H7FFF 

H8000 

IPA 

Kl 



VALUE REL 
0010 
001* O 
0015 O 
C871 1 



0FF2 
0FF2 
08C2 
083B 
0830 
083C 
089C 
0833 
0834 
082B 
C82C 
'10 2D 
0825 
0326 
0827 
0828 
0829 
082A 
082E 
082F 
0830 
0831 
0832 
0835 
0836 
0837 
0838 
0839 
083A 
08 06 
0816 



KiO 


08 IF. 


KJOO 


0820 


K 1000 


082* 


k:27 


0821 


K 128 


0822 


K2 


08 17 


K20 


0B1F 


K3 


08 18 



DATE 
FC NO. 



14N0V69 
43i319 



DEFN 
0281 
0286 
0283 
0155 



2189 

2191 

0341 

0109 

0111 

0110 

0318 

0101 

0102 

0093 

0094 

0095 

0087 

0088 

0069 

0C90 

0091 

0092 

0096 

0097 

0091. 

0099 

0100 

0103 

OICi 

0105 

0106 

0107 

01C8 

0044 

0072 



0080 
0082 



0086 
0083 
0084 
0073 
0081 
0074 



CROSS-REFERENCE 
REFERENCES 



0519 0650 0729 0832 0915 

1264 1373 1450 1E35 1615 

2037 2230 3242 

01C6 

2193 

2594 

0439 1884 3095 3132 313S 

2076 2203 2491 



0980 
1695 



1042 
1775 



1122 
1869 



1185 
1955 



0559 3098 3280 3282 3413 3414 
3326 



3331 



0739 07'. 1 2205 3028 

0743 2200 

2554 3033 

2212 255; 3036 



^059 



0441 
C068 
1603 
2226 
3360 
0648 
1371 
3354 
2337 3349 



U468 
1030 
1683 
2460 

0727 
144 8 



0514 
1056 
1763 
2722 

0830 
1533 



0515 
1110 
1857 
2830 

0913 
1613 



05 74 
1173 
1935 
2943 

0978 
1S93 



0638 
1252 
2025 
3039 

1040 
1773 



0717 
1353 
2220 
3205 

1120 
1867 



0820 
1438 
2222 



1183 
1953 



0903 
152 3 
2224 



12 62 

2035 



1058 2218 2457 

3011 

2092 3067 3227 
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SYMBOL 


VALUE 


REL 


DEFN 


REFERENCES 
















K4 


08 19 




0075 




















K500 


0823 




0085 




















K6 


081 A 




0076 


2216 


















K7 


08 IB 




0077 




















K8 


081C 




0078 


2057 


2921 
















K9 


081D 




0079 


3329 


3332 
















LEXIT 


14 7E 




32 52 


2993 


3046 


3247 














LC-B&Y 


0860 




0135 


0467 


2986 


2992 


3251 












LINE1 


11AB 




2604 


2528 
2550 


2529 


2531 


2 533 


2536 


2538 


2542 


254 5 


2547 


LINE2 


llBb 




2606 


2560 


2564 


2565 














LINE3 


11CD 




2608 


2563 


















LOG 


012H 





0015 


0016 


















LPA 


0807 




0045 




















LPCNT ' 


0866 




0141 


0649 


0684 


0726 


0780 


0831 


0868 


0914 


0938 


0979 










1002 


1041 


1075 


1121 


1 144 


1 184 


122u 


1263 


1293 










1372 


1403 


1449 


1484 


) 534 


1569 


1614 


1649 


1694 










1729 


1774 


1797 


1868 


1904 


1954 


1965 


2036 


2089 


MATO 


0134 





0020 




















MLSCF 


0809 


1 


0047 




















MLSCO 


08 09 


1 


0048 


0381 


















MLSC1 


080A 


; 


0049 




















MLSC2 


080B 


1 


J050 


0451 


2641 


2670 














NCARE 


085B 


1 


0131 


2424 


243 


2438 


2444 












NOPCC 


0889 


1 


0291 


1159 


1164 
















OBCRT 


0009 





0031 


1940 


















OBYPR 


OOOD 





0036 


2997 


















OCHLT 


OOOF 





0038 




















OEBYP 


0009 





2771 


2961 


















OECAW 


OOOD 





2775 


2849 


















OECSW 


OOOE 





2776 


2865 


















OECXC 


0003 





2768 




















OECXO 


0000 





2765 




















0ECX4 


0001 





2766 




















0ECX8 


0002 





2767 




















OEERR 


OOOC 





2774 


2798 


















OEGSN 


OOOA 





2772 




















0EL1B 


OOOB 





2773 


2796 


2798 
















OEPBL 


0007 





2770 


2790 


















OESNS 


OOOF 





2777 


2913 


















OEXIT 


0006 





2769 


2966 


















OHALT 


OOOE 





0037 


2711 


















OLPER 


OOOC 





0035 


0703 


2464 
















OLPST 


0008 





0030 


0676 


2286 


2297 


2331 












OPNOP 


0003 


c 


0207 


0292 
1921 


0807 


0893 


0894 


1016 


1101 


1497 


1810 


1815 


OPRD 


0002 





0206 




















OPRRS 


OOOA 





0032 




















OPSNS 


0004 





0210 


0308 


12 33 


1318 


1415 


1502 


1582 


1662 


1742 


2131 


OPTIC 


0008 





0213 


1158 


2136 

















DATE 
EC NO. 



14 NOV 69 
431319 



30 JAN70 
431319A 



15SEP71 
431328 



20NOV72 
431337 



PROG ID 
PAGE 



081 0-1 
" 37A 



£ 

C 

c 
c 

© 

€ 

C 
f 

c 

€ 
C 
C 
C 
( 
€ 

< 
t 

c 
i 



A —*4 ~—4 — «4 — *4 —4 —4 ~*4 —4 *~* ( —4 *-< *«< **H **4 , >*H —4 »M ^ —4 **4 **( ~*4 ^ **■< ***( ****( 6 **1 ***< **i, *"H *"*< 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
SELECTOR CHANNEL OFF-LINE DIAGNOSTIC 

CROSS-REFERENCE 



PART NO. 2279464 
PAGE 38 



SYMbOL 


VALUE 


REL 


DEFN 


REFERENCES 














OPT 10 


0000 





0204 


0302 


0959 














OPWR 


0001 





0205 


















ORTRY 


OOOB 





0034 


















OTTLE 


OOOA 





0033 


0642 


0721 


0824 


0907 


0972 


1034 


1114 


1177 1256 










1365 


1442 


1527 


16Cf 


1687 


1767 


1861 


1947 2029 


PASSW 


08SF 




0134 


















PC AW 


08S4 




0127 


2956 
















PCSW 


0856 




0128 


2326 


2882 














PEND 


156C 




3478 


0052 
















P^OCC 


0886 




0176 


2455 


2600 














PIONT 


1160 




2528 


0177 
















PIOXT 


11A9 




2600 


2555 
















PI0X3 


11A7 




2599 


2559 


2595 














PI001 


1183 




2563 


2597 
















PI002 


1185 




256* 


2561 
















PI003 


11A0 




2591 


2589 
















PRINT 


1^84 - 




2783 


2823 


28-1 


2956 












PSCNT 


0^61 




0J36 


0442 


0539 


2168 












PSNS 


C358 




0129 


2915 
















RCAL 


0013 





0215 


0297 
















RDCKD 


001E 





0218 


















RDCNT 


0012 





0216 


















RDDAT 


0006 





0209 


















RDHA 


00 1 A 





0217 


















RDHMT 


009A 





0223 


















RDKD 


OOOE 





0220 


















RDRO 


0016 





0222 


















RECAL 


068C 


1 


0296 


















RELDV 


0132 





00 18 


0019 


0455 


0460 


0480 


0486 


0508 


22 38 


3237 


REODV 


0131 





0017 


0018 


0503 


.M92 


3019 










SCABZ 


0007 





0249 


2070 


20d4 


2P71 


2276 










SCDCK 


0004 





0246 


















SCICC 


0005 





02*7 


















SCILG 


0006 


u 


0248 


















SCIMS 


091B 


1 


0416 


0412 
















SCIM2 


092B 


1 


0418 


0404 


0406 














SCINT 


08EA 


1 


0370 


0396 
















SCIN2 


08F4 


1 


0380 


03 7 5 
















SCIN3 


08FA 


1 


0384 


0378 
















SCIN4 


0902 


1 


393 


0371 
















SCIN5 


0905 


1 


0398 


0380 
















SC1N.3 


090D 


1 


0402 


0409 
















SC1SW 


08E8 


1 


0367 


0374 


0395 


0663 


2228 


2243 


2279 


2289 


2295 


SCPCI 


0002 


c 


0244 


















SCPCK 


0003 





0245 


















SCPLP 


0863 


1 


0138 


2334 


2338 














SCSNO 


0clA2 


1 


0324 


0666 


0679 


2219 












SCSN1 


08A4 


1 


0326 


0384 
2304 


0665 
3012 


0700 
3014 


2068 


2082 


2221 


2270 


2274 2293 


SCSN2 


08A6 


1 


0328 


2223 
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SYMBOL 


VALUE 


REL 


DEFN 


SCSN3 


08A8 




0330 


SCSN4 


08AA 




0332 


SCSN5 


08 AC 




0334 


SCSVS 


OSBE 




0340 


SC5XC 


08BA 




0339 


SCSXO 


08AE 




0336 


SCSX4 


0882 




0337 


SCSX8 


0866 




0338 


SCL'NO 


0000 





0242 


ccuop 


0008 





0250 


SCUSP 


0001 





0243 


S£EKB 


OOOB 





021- 


SEEKC 


0007 





0211 


SENSE 


089E 


1 


0320 


SFILM 


001F 





0231 


SIDHE 


0071 





0229 


SIDHI 


0051 





0227 


SIO 


0874 


1 


0158 


SI08S 


1143 


1 


2486 


SI09Z 


1144 


1 


2*88 


SI0B2 


114B 


1 


2494 


SIOCK 


102B 


1 


2270 


SIOER 


I 100 


1 


2472 


SI0M1 


1104 


1 


2477 


SI0M2 


lil3 


1 


2479 



SI0M3 

SI0M4 
SIONT 
SI0N2 
SI0N3 
SIOSW 
SIOXX 



SIOYY 
SI001 

S1002 
SI003 
SI004 
SI005 

51000 
SI007 
S1O08 



1120 



2482 



1130 


1 


248-. 


1020 


1 


2259 


10AE 


1 


2392 


1088 


1 


2403 


065E 


1 


0133 


08A0 


1 


0322 



101F 1 


2257 


1034 


I 2279 


103D 1 


2265 


1050 


t 2304 


106B ] 


2330 


1076 


1 £341 


108C 1 


2363 


10A7 


t 2386 


10D0 1 


2427 



CROSS-REFERENCE 
REFERENCES 

0386 0668 2103 2225 2300 2306 2494 
0388 0670 2105 2227 2308 2496 
0390 0672 2107 2217 2301 2310 2498 



2275 


2305 


2307 


2309 


2311 


2495 


2497 


2499 


0377 


0667 


0669 


0671 


0673 


1087 


2069 


2083 


2106 


2108 


2352 


2365 


?373 


2382 


2868 




0382 


0400 















2104 



1975 2210 



0746 


0754 


0762 


0770 


085 1 


0860 


0930 


0994 


1062 


1136 


1203 


12*1 


1389 


1467 


1552 


1632 


1712 


1 789 


1893 


1969 


1974 


2051 


2062 


2075 


2259 


2266 




22 '-.4 


2488 


2490 


2502 












2277 


















2489 


















2492 


















2283 


















2318 


2321 
















2327 


2 34 6 


2357 


2359 


2369 


2371 


2378 


2 380 


2397 


2401 


















2405 


2411 


2413 


24 16 


2419 


2 411 


2425 


2431 


2433 


£439 


2445 


2447 


2450 












2509 


251? 
















0159 


2515 
















0698 


















2328 


















0466 


















0847 


0852 


0856 


0861 


0V28 


0931 


0992 


0995 


1054 


1063 


1134 


1137 


1197 


1204 


1276 


1232 


1384 


1390 


1462 


1468 


154 7 


1553 


1627 


1633 


1707 


1713 


178/ 


1790 


1881 


1882 


'886 


1894 


1967 


1970 


2049 


2052 


2055 


2063 


2206 














2267 


















2261 


2268 


2272 


2302 


2335 


2339 


2465 






2292 


















22V0 


















2290 


















2332 


















2353 


2366 


2374 


2383 


"•390 










2423 
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SYMBOL 


VALUE 


REL 


DEFN 


REFERENCES 
















SI009 


10D8 


1 


2435 


2429 


















SIOIO 


10DE 


1 


2441 


2437 


















SIOll 


•0E6 


1 


2449 


i-443 


















51012 


10F5 


1 


2463 


2458 


















SI013 


10FE 


1 


2470 


2468 


















SICHD 


001B 





0224 




















SKHE 


0069 





0228 




















SNCCM 


0893 


1 


0307 


0320 


















SNWDS 


0896 


1 


0311 


0309 
2923 


0312 


0313 


0314 


0315 


1208 


1234 


1979 


2006 


SNWOO 


0896 


1 


0312 


1200 


1387 


1394 


1420 


1465 


1472 


1503 


1550 


1557 










1583 


1630 


1637 


1663 


1710 


1717 


1743 


2132 




SNHD1 


0897 


1 


0313 


1201 


1416 


1498 














SNWD2 


0898 


1 


0314 




















SNWD3 


0899 


1 


0315 




















SPACE 


08SA 


1 


0130 


2900 


2945 
















SPROT 


0865 


1 


0140 


0449 
2198 


0477 


1278 


1279 


1286 


1319 


1889 


18 98 


1916 


SRCHA 


0039 





0225 




















SRC ID 


0031 





0230 




















SRCKE 


0029 





0219 




















SRCKH 


0049 





0226 




















START 


01 2D 





0013 


0014 


0413 


2642 














STKSW 


0662 


1 


0137 


0465 


2957 
















STMLE 


11DF 


1 


2623 


0162 


















STMLL 


UFO 


1 


2657 


2660 


















ST 4-S 


0877 


1 


0161 


0502 


0527 


0646 


0725 


0628 


0911 


0976 


1038 


1118 










1 181 


12C0 


1370 


1446 


1531 


16 11 


1691 


1771 


1065 










1951 


2033 


2191 


22ae 


2336 


2624 


2648 


2 667 


2728 










2733 


29^S 


3013 


3043 


3159 


3168 








STMLX 


11F« 


1 


2646 


2680 


















STMPS 


120C 


1 


2669 


2663 


















STMPT 


1212 


1 


2679 


0437 


262B 


2638 


2662 












STMRT 


1213 


1 


2680 


2640 


2669 
















STMSA 


12 OF 


1 


2675 


2625 
2666 


2626 


2627 


2630 


2632 


2634 


2651 


2 653 


2665 


STMSE 


1206 


1 


2665 


2671 


















STMST 


1214 


1 


26B4 


2631 


2633 


2635 


2647 


2650 


2652 


2657 


2658 




STSEP 


OSCE 


1 


0353 




















TB 


087F 


1 


0071 


0372 


0374 


03 84 


03 86 


03 88 


0390 


0398 


0403 


0411 








< 


0432 


043S 


0436 


0439 


0440 


0441 


0442 


0452 


0453 








■ 


04 SB 


04 65 


0466 


0467 


04 6 8 


0469 


0476 


047d 


04S3 










04 99 


0500 


05 02 


0512 


0514 


0515 


0516 


0519 


0520 










0521 


0524 


052 7 


0528 


0533 


0534 


0535 


0539 


0540 








' 


0541 


0544 


0353 


0554 


0557 


0558 


05S9 


C561 


0569 










0571 


0572 


0573 


0574 


0575 


0578 


0582 


0533 


0587 










0589 


0590 


0622 


0638 


064 1 


0644 


0646 


0648 


0649 










0650 


0663 


0665 


0666 


0667 


0668 


0669 


0C70 


0671 










0672 


0673 


0675 


0679 


0687 


0688 


0690 


^02 


071 7 










0720 


0723 


072 5 


0727 


0728 


0729 


0736 


0737 


0739 



DATE 
EC NO. 
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DATE 
EC NO. 



14N0V69 
431319 



30 JAN70 
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1SSEP>71 
431328 



20N0V72 
431337 



PART NO. 2279464 
PAGE 39A 



CROSS-REFERENCE 












REFERENCES 
















0741 


0743 


0746 


0754 


0762 


0770 


0774 


0783 


0734 


0786 


082 


0823 


0826 


0828 


0830 


os3: 


0832 


0851 


0860 


0871 


0872 


0874 


0903 


0906 


0909 


0911 


0913 


0914 


0915 


0930 


094 1 


0942 


0944 


0968 


0971 


0974 


0976 


0978 


0979 


0980 


0994 


1005 


1C06 


1008 


1030 


1033 


1036 


1038 


1040 


1041 


1042 


1056 


10 58 


1059 


1062 


1078 


1079 


1081 


10fa7 


1110 


1113 


1116 


1118 


1120 


1121 


1122 


1136 


1147 


1 143 


1150 


1 173 


1176 


1179 


1101 


1183 


1 18- 


1 185 


1199 


1200 


U01 


1203 


1208 


1209 


1212 


1223 


1224 


1226 


12 52 


12SS 


1258 


1260 


12 62 


1263 


1264 


1277 


1278 


1261 


1286 


1287 


1296 


1297 


1299 


1305 


1331 


1341 


1353 


1357 


1364 


1367 


1370 


1371 


13 72 


1373 


1286 


1387 


1389 


1394 


1395 


1398 


14 06 


1407 


1409 


1438 


1441 


1444 


« 44 3 


1448 


1449 


1450 


1464 


14 65 


1467 


1472 


1 473 


1476 


1487 


1488 


1490 


1523 


1526 


1529 


1531 


1533 


1534 


153 5 


1549 


155 


1552 


1557 


1558 


1561 


1572 


1573 


1575 


1603 


1606 


1609 


161 1 


1613 


1614 


1615 


1629 


1630 


1632 


163 7 


1638 


1641 


1652 


1653 


1655 


1683 


1686 


1689 


1691 


1693 


1694 


1695 


1709 


1710 


1712 


1717 


1718 


1721 


1732 


1733 


1735 


1763 


1760 


1769 


1771 


1773 


1774 


1775 


1789 


1800 


1801 


1803 


1831 


1841 


1857 


I86 


1663 


1865 


1867 


1868 


1869 


1884 


1888 


1889 


1890 


1891 


1893 


1898 


1899 


1907 


1908 


1910 


191 o 


191 7 


1935 


1939 


1946 


1949 


1951 


1953 


1954 


1955 


1969 


1974 


1979 


1988 


1989 


1991 


1997 


2025 


2028 


2031 


2033 


2035 


2036 


2037 


2051 


2057 


2062 


2066 


2069 


207S 


2082 


2083 


2092 


2094 


2095 


2097 


2103 


2104 


2105 


2106 


2107 


i.108 


2112 


2117 


2147 


2157 


2160 


2166 


2185 


?191 


2200 


2201 


2202 


2203 


2205 


2206 


2208 


2210 


2212 


2213 


2216 


2217 


2218 


2219 


2220 


2221 


2222 


2223 


2224 


.^22 5 


2226 


2227 


2228 


2243 


2244 


2266 


2270 


2274 


2275 


2282 


2285 


2288 


2289 


2295 


2296 


2299 


2300 


2301 


2304 


2305 


2306 


2307 


2308 


2309 


2310 


2311 


2319 


2326 


2330 


2336 


2337 


2338 


2345 


2352 


2356 


2363 


2365 


2368 


2373 


2377 


2382 


2399 


2404 


2408 


2410 


2415 


2418 


2424 


2430 


2438 


2444 


2449 


2455 


2456 


2457 


2459 


2460 


2463 


2466 


2469 


2473 


2491 


2494 


2495 


24 9o 


2497 


2498 


2499 


2511 


2530 


2535 


2540 


2549 


2553 


2554 


2566 


2571 


2576 


2585 


2590 


2594 


2624 


26*1 


2646 


2648 


2670 


2710 


2714 


2715 


2719 


2722 


2723 


2724 


2728 


2730 


2733 


2792 


2805 


2807 


2817 


2825 


2826 


2828 


2829 


2830 


2831 


2832 


2834 


2840 


2845 


2856 


2858 


2859 


2882 


2885 


2888 


2893 


2896 


2900 


2915 


2921 


2923 


2926 


2936 


2943 


2945 


2949 


2953 


2955 


2957 


2 963 


2986 


29S8 


2991 


2992 


2996 


3C0O 


3006 


3011 


3012 


3013 


3017 


3025 


3028 


3030 


3033 


3035 


3036 


3038 


3039 


3040 


3043 


3055 


3058 


3059 


3060 


3064 


3065 


3067 


3074 


3C90 


3093 


3095 



t 
I. 

t 
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CROSS-REFERENCE 












SYMBOL 


VALUE REL DEFN 


REFEREr.CES 






















3C98 


3 I OS 


3116 


3120 


3132 


3135 


3152 


3154 


3159 








3162 


3165 


3166 


3168 


3189 


3204 


3205 


3227 


32 32 








3242 


3251 


32 63 


3271 


3279 


3280 


3282 


3307 


3309 








3310 


3315 


3317 


3319 


3326 


3329 


3331 


3332 


3349 








33 54 


3360 


3413 


3414 












TCNER 


(1102 1 


0582 


0565 


0625 


1344 


1844 


2163 










TCNE2 


OA06 1 


0610 


0525 


















TCNPR 


0981 1 


0499 


0450 


















TCNRQ 


0986 1 


0502 


0504 


















TCNSW 


0842 1 


0116 


0571 


0752 


0760 


0768 


0774 










TC..TA 


09DB 1 


0592 


0568 


0579 


0592 














TCNTE 


09B1 1 


0552 


0147 


















TCNTZ 


09E0 1 


0597 


0592 


















TCN01 


0998 1 


0518 


0501 


















TCN02 


09AS 1 


0533 


0523 


















TCN03 


09C1 I 


0567 


0580 


















TCN04 


09C; 1 


0578 


0562 


















TCVBE 


087A 


0164 


0403 


0535 


0541 


0583 


2404 


2410 


2415 


2418 


2530 








2535 


2540 


2566 


2571 


2576 


2585 


2715 


2817 


2'J26 








2831 


28S9 


2885 


2888 


2893 


2896 


2<,36 


3060 


3320 


TCVBN 


14D4 1 


3j02 


0165 


















TCVEN 


1539 


1 3423 


3415 


















TCVHD 


087D 1 


0167 


0540 


3347 


3365 














TCVSP 


156A 


I 3475 


3423 


















TCVSR 


1506 1 


3382 


2313 


2392 


2504 


339C 












TCVSV 


156B 


1 3476 


3403 


3404 


3409 


3424 












TCVSZ 


151 1 1 


3389 


3383 


















TCVS1 


0843 


t 0117 


3307 


33 09 


3?10 


3319 












TCVS2 


0844 1 


0118 


3315 


3317 
















TCVTB 


153E 


I 3429 


:405 


















TCVTC 


1569 


3474 




















TCV01 


14E4 


1 3322 


3305 


3308 


3313 


3316 


3327 


3334 








TCV02 


14EC 


3329 


3325 


















TCV03 


152B 


1 3407 


3418 


















TCV04 


1537 


1 3420 


3410 


















TCV4S 


1525 


1 3402 


3137 


3425 
















TERM 


080C 


I 0051 


04 5/ 


04i ■> 


04 82 


o«ee 


0507 


0510 


1059 


1 199 


1209 








1277 


1287 


1386 


1395 


1464 


1473 


1549 


1?58 


1629 








1638 


1709 


1718 


1890 


2196 


2240 


2793 


2805 


2807 








2840 


2953 


3023 


2055 


3165 


3239 








THALT 


0880 


1 1 .0 


0589 


2469 


2714 


2734 


296; 










THEXD 


14F2 


1 3347 


0168 


















THEXS 


1505 


I 3367 


3351 


3356 


3357 


3364 












THLTE 


1220 


1 2709 


0171 


















THLTG 


1224 


1 2714 




















THLTL 


122E 


1 2728 


2731 


















THLTM 


1235 


1 2736 


2720 


















THLTR 


1233 


1 2734 


2712 


















THLT2 


1246 


1 2737 


2716 


2718 
















TIOSW 


0864 


1 0139 





















DATE 
EC NO. 
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CROSS-R 


EFERENCE 












SYMBOL 


VALUE REL DEFN 


REFERENCES 
















TIOXX 


089A 1 


0316 


2208 


















TLGBA 


149E 1 


3287 


0343 


3102 


3110 


3138 


3221 










TLGBP 


13EA ] 


3076 


30 52 


3226 
















TLGCH 


1481 1 


3261 


3050 


3071 


3077 


3233 


3276 


3281 


321.3 


3264 




TLGCM 


13C1 1 


3036 


3031 


















TLGCH 


1439 1 


3183 


3109 


















TLGCT 


08CA 1 


0343 


3166 


3171 
















TLGDA 


143C 1 


3186 


0506 


051 1 


3022 


3029 


3C34 


3037 








Tl.GED 


0813 1 


0058 


0453 


0456 


0478 


0481 


0505 


0509 


3000 


3021 


3238 


TLGEN 


1476 1 


32*7 


2993 


















TLGIN 


1430 


3187 


3213 


















TLGIS 


143B 1 


3185 


3066 


3164 


3169 


3190 


3211 










TLGME 


138B 


2985 


0174 


29?,9 
















TLCMS 


0883 1 


0173 


041 1 


0524 


0544 


0587 


0644 


0723 


0826 


0909 


0974 








1036 


1116 


1179 


1258 


1367 


1444 


1529 


1609 


1689 








1769 


1863 


1949 


£031 


2166 


2 449 


2549 


2590 


2719 








2792 


2845 


2955 


2 991 












TLGNB 


1390 1 


2991 • 


2987 


















TLGPR 


140A 


3115 


3223 


















TLGSN 


08C8 1 


0346 


3030 


3152 
















TLGSP 


06C8 


0345 


0346 


3074 


3279 














TLGSR 


OBCC 1 


0350 


3040 


3195 
















TLGSV 


143A 


t 3184 


3103 


3115 


3124 














TLGSW 


08CB 1 


03 49 


3064 
3265 


3065 
3271 


3093 


3105 


3116 


3120 


3130 


32 32 


3263 


TLGWR 


08C6 1 


0343 


3030 


3 035 


3051 


3162 


3225 










TLGXR 


145B 


I 3221 


3170 


















TLGX2 


145F 1 


3225 


3133 


















TLGX3 


1478 


t 3248 


2994 


2995 
















TLG01 


13A0 


30U6 


3001 


















TLG02 


13AF 


I 2019 


3007 


3044 
















TLG03 


13C8 


3043 


3020 


















TLG04 


13CA 


I 3046 


3041 


















TLG05 


I3DD 


3063 


3056 


















TLG06 


13E4 


1 3071 


3085 


3235 
















TLG07 


13F6 


1 3090 


3072 


3078 
















TLG08 


13FE 


1 3098 


3094 


















TLG09 


1416 


3127 


3117 


















TLG10 


141B 


1 3132 


3125 


















TLGI1 


1431 


1 3168 


3172 


















TLG12 


144D 


1 3203 


3196 


















TLG13 


1455 


1 3210 


3199 


3206 


3208 














Tt G14 


1457 


1 3212 


3188 


















TLG15 


146D 


1 3237 


3234 


















TLG16 


148C 


1 3270 


3264 


















TLG17 


1493 


1 3278 


3268 


















TLG18 


1496 


1 3280 


3278 


















TLG4 


13BD 


1 3033 


3026 


















TLG42 


1423 


1 3152 


3091 


3160 
















TLG43 


1420 


1 3162 


3111 


3156 
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SYMBOL 

TPID 

TRID 



TRTNN 



TSAD 

TSCmC 

TSCCW 

TSCEO 

TSCTN 

TSID 

TSWDS 

TSWO 



TSW1 

TSW2 

TSW3 

TTLER 

TTLOO 

TTLOl 

TTL11 

TTL '2 

TTL13 

TTLI4 

TTL15 

TTL 16 

TTL17 

TTLI8 

TTL19 

TTL21 

TTL22 

TTL23 

TTL24 

TTL2S 

TTL26 

TTL3I 

TTL32 

TTL33 

TYPAD 

TYPEC 

TYPCS 

TYPUS 

TYP2 

TYP3 

T1A0I 

T10NT 



VALUE REL 
07FF 1 
08 i S I 



0841 



0801 
08E9 
088F 
0814 
0840 
0800 
0892 
0802 



0803 
0804 
0805 
09F7 
09E0 
09F0 
0A49 
0AA3 
OAEA 
0B28 
0B5C 
0B99 
0BD8 
0C17 
0C67 
0CD6 
0D2A 
0D7F 
0DD5 
0E2A 
0E70 
0EC8 
0F12 
0F81 
0850 
0852 
084C 
084E 
0848 
084A 
0C98 
0A16 



DATE 
EC NO. 



14N0V69 
431319 






DEFN 
0026 
0060 



01 15 



0028 
0368 
0301 
0059 
0114 
0027 
03CS 
0040 



0041 

0042 

0043 

C607 

0601 

0604 

0692 

0788 

0876 

0946 

1010 

108J 

1152 

1228 

1301 

1411 

14^2 

1577 

1657 

1737 

1805 

1912 

1992 

2099 

0125 

0126 

0123 

0124 

0121 

0122 

1331 

0622 



C3 
REFERE 
0071 
0572 
1250 
2023 
0557 
1224 
184 1 
0569 
0736 
0316 
0458 
0561 
0469 
0?03 
0435 
1113 
1766 
2466 
0436 
0440 



OSS-REFERENCE 

NCES 

3058 
0715 
1436 
3354 
0688 
1341 
1989 



C425 
0636 
1351 
2459 
0622 
1297 
1908 
0S76 
2195 



0818 
1521 

C784 
1407 
2095 



0901 
1601 

0872 
1488 
2160 



0966 
1681 



C942 
1573 



1028 
1761 



1006 
1653 



1108 
1855 



1079 
1733 



1171 
1933 



1148 
1801 



2201 2213 



0461 0483 0487 2194 223S 3006 

2157 

0567 0573 0575 0578 2456 3387 



0641 0675 0702 

1176 1255 1357 

1860 1939 1946 

2710 2723 2724 

0554 0558 0582 



0720 


0823 


0906 


0971 


1033 


13 64 


1441 


1526 


1606 


1686 


2028 


2285 


2296 


2330 


2463 


273C 


2996 









0521 0528 0533 



0584 0586 0588 

0545 

0543 

0645 

0724 

0827 

0910 

0975 

1037 

1117 

1180 

-.259 

1368 

1445 

153 

1610 

lb90 

1770 

•864 

1950 

2032 

2368 

2377 

2345 

2356 



1298 
0593 



€ 

€ 

€ 
i 

i 
I 
I 



30JAN70 
431319A 
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CROSS-REFERENCE 


SYMBOL 


VALUE REL DEFN 


REFERENCES 


T10PR 


0A14 


1 0619 


0624 


0626 


THEN 


0A44 


I 0637 


0705 




T1101 


0A1E 


1 0635 


0623 


0627 1253 


T1102 


0A25 


0641 


0637 




T1I03 


0A2B 


1 0646 


0643 




T1104 


0A31 


0665 


0677 


0685 0704 


T1105 


0AS7 


I 0696 


0680 




T1106 


0A50 


0700 


0697 




T12EN 


0A9E 


I 0783 


0773 


0775 


T12I 1 


0AB4 


0793 


0738 


0747 


T12I2 


0AB6 


1 0796 


0740 


0755 


T12I3 


0AB8 


0799 


0742 


0763 


TI214 


OABA 


l 08C2 


0744 


0771 


T1201 


0A65 


0714 


0639 


0689 


T1202 


0A6C 


1 0720 


C716 




T1203 


0A72 


0725 


0722 




T1204 


0A7h 


1 0746 


0781 




T13EN 


0AE5 1 


0871 


0854 


0863 


T1301 


0AC1 


I 0817 


0718 


0785 


T1302 


0AC3 1 


0823 


C819 




T1303 


OACE 


082o 


0825 




T1304 


0AD5 1 


0846 


0869 




T14tN 


0B23 


1 0941 


0933 




TI40I 


0U07 1 


0900 


0821 


Of 73 


T140Z 


OBOE 


1 09C6 


0902 




TI403 


0B14 1 


0911 


09C8 




T1404 


0B18 


1 0927 


0939 




TISfcN 


0BS7 1 


1005 


0997 




T1501 


0B3B 


1 0965 


0904 


0943 


T1S02 


0B42 1 


0971 


0967 




T1503 


0B48 


0976 


0973 




T:504 


0B4C 1 


09? 1 


1003 




T16tN 


0B94 


1078 


1068 


1089 


T1601 


0B6E 1 


1027 


0969 


1007 


T1602 


0B75 


1033 


1029 




I 1603 


0B76 1 


1038 


1035 




T1604 


OB04 


I 1057 


1070 


1076 


T1605 


0B8C ] 


1067 


1091 




T1606 


OBAB 


1087 


1065 




T17EN 


0BD3 1 


1147 


1139 




T1701 


0BB7 


i : ;o7 


1031 


1080 


T1702 


OBBE 1 


1 1 13 


1109 




T1703 


oa^ 


1118 


1115 




T1704 


0BC8 1 


1133 


1145 




T18EN 


0C12 


1223 


1206 


1215 


T18M1 


0C2C 1 


124] 


1214 




T1801 


OBEB 


1 1170 


1111 


1149 


rieoi 


0BF2 1 


1176 


1172 




Tiaoj 


0BF8 


1181 


1 178 




T1804 


OCOO 1 


1199 


1221 
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CROSS-REFERENCE 


SYMBOL 


VALUE REL DEFN 


REFERENCES 


T1805 


OCOB I 


1212 






T1806 


OCOF 1 


1220 


1210 




T19EN 


0C62 1 


1296 


1284 


1309 


T1901 


0C3E I 


1249 


1174 


1225 


T1902 


0C45 1 


1255 


1251 




T190? 


0C4B I 


1260 


1257 




T1904 


0C57 I 


1281 


1294 




T1905 


0C77 1 


1305 


1288 




T1906 


0C83 1 


1322 


1307 




T20NT 


0C9B 1 


1341 


0594 




T20PR 


0C99 1 


1338 


1343 


1345 


T2IEN 


0CB1 


1406 


1392 


1401 


T21M1 


OCEF 1 


1426 


1400 




T21XX 


OCB1 


1363 


1356 


1359 1360 


T2I01 


0CA3 1 


1350 


134i! 


134 5 


T2102 


OCAA 


1356 


1352 




T2103 


GCB8 1 


1370 


1366 




T2104 


OCCO 


1386 


1404 




T210S 


< CCA 1 


1398 






T2106 


OCCE 


1403 


1396 




T22EN 


0D25 1 


1487 


1470 


1479 


T22M1 


0D44 


1510 


1473 




T2201 


OCFF I 


1435 


1354 


1361 1408 


T2202 


0D06 


1441 


143 7 




T2203 


ODOC 1 


1446 


1443 




T2204 


0D14 


1464 


1485 




T2205 


0022 1 


1484 


1474 




T23EN 


0D7A 


1572 


155S 


1564 


T23M1 


0D9A 1 


1590 


1563 




T2301 


0D54 


1 1520 


1439 


1489 


T2302 


OOSB 1 


1526 


1522 




T2303 


0D6I 


1 1531 


1528 




T2304 


0D69 1 


1549 


1570 




T2305 


0D77 


I 1569 


1559 




T24EN 


ODDO 


1652 


1635 


1644 


T24MI 


ODEF 


I 1670 


1643 




T2401 


ODAA 


16C0 


1524 


i574 


T2402 


ODbl 


1 1606 


160 2 




T2403 


0DB7 


1611 


1608 




T2404 


ODBF 


1 "629 


1650 




TT405 


ODCD 


1649 


1639 




T25EN 


0E25 


1 1732 


1715 


1724 


T2SM1 


0E41 


I 1750 


1723 




T250I 


ODFr 


1 1680 


1604 


1654 


T2502 


OEOfo 


1 1686 


1682 




T2503 


OEOC 


1 1691 


1688 




T2504 


0E14 


t 1709 


1730 




T250S 


0E22 


1 1729 


1710 




T26EN 


OEoB 


t 1800 


1792 




T2601 


0E4F 


1 1760 


1684 


1734 
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CROSS-REFERENCE 




SYMBOL 


VALUE 


REL 


DEFN 


REFERENCES 




T2602 


0E56 




1766 


1762 






T2603 


0E5C 




1771 


1768 






T2604 


0E64 




1769 


1798 






T2701 


0E8F 




1831 


1764 


1802 




f3 0NT 


0E92 




1841 


0593 






T30PR 


0E90 




1838 


1843 


1845 




T31EN 


0EC3 




1907 


1918 






T3101 


0E9A 




1854 


1842 


1846 




T31G2 


0EA1 




1860 


1656 






T3103 


0EA7 




1865 


1862 






T3104 


0EB6 




1888 


1905 






T3105 


0ED3 




1916 


1896 






T 32EN 


OFOD 




19o8 


1972 


1977 2001 




T32XX 


OEFO 




1945 


1938 


1941 1942 




T3201 


0EE2 




1932 


1858 


1909 




T3202 


0EE9 




1938 


1934 






T3203 


0F.F7 




1951 


1948 






T3204 


OEFF 




1969 


1986 






T320S. 


OF 21 




1997 


1980 






T3206 


OF 28 




2009 


1999 






T33CK 


0F6E 




207b 


2257 






T33EN 


0F7C 




209i 


2". 15 






T33G0 


0F6D 




2075 








T33X 


OFDO 




2140 


2060 


2072 2110 




T330A 


0F9E 




2122 


2114 






T3306 


0FB5 




2126 


2119 






T3300 


0F4D 




2048 


2090 






T330 1 


CF3C 




2022 


1936 


1943 1990 




T3302 


0F43 




2028 


2024 






T3303 


0F49 




2033 


2030 






T3304 


0F5A 




2C56 








T3305 


0F63 




2066 


2067 






T3306 


0F70 




2079 


2080 






T3307 


OF 7 A 




2092 


2120 






T3308 


0F8D 




2103 


2071 


2065 




T3309 


0F9A 




2117 


2111 






T34U1 


OF 01 




2147 


2026 


2096 




T40LN 


OFDF 




2166 


2158 






T40ER 


0FE6 




2172 


2167 






T40NT 


0FD4 




2157 


0596 






T40PR 


0FD2 




2154 


2162 


2164 




T4101 


0FF1 




2185 


2161 


2165 




T45SW 


08o7 




0142 


0500 


0516 3025 3090 3154 3204 


UNADR 


08DE 




0356 


2828 


2632 2834 2838 




UNATN 


0006 





0261 








UNBZY 


OOOB 


u 


0264 








UNCHc 


OOOC 





0265 








UNCHK 


OOOE 





0267 








UNCUE 


OOOA 





0263 








UNDVE 


OOOD 





0266 
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CROSS-REFERENCE 



SYMBOL 


VALUE 


REL 


DEFN 


REFERENCES 


UNEXC 


OOOF 





0268 






UNSMD 


0009 





0262 






WRCKO 


0010 





0232 






WRDAT 


0005 





0208 






WRHA 


0019 





0233 






WRKD 


OOOD 





0221 






WRRO 


0015 





0234 






ZEPA 


096C 




0475 


0046 


0489 


ZEPA1 


0978 




0483 


0479 




ZEPA2 


097 c 




0->89 


0484 




ZIPA 


09" : 




0429 


0044 


0430 


7LPA 


0940 




0448 


004S 


0431 04^ 


ZLPA1 


095D 




0458 


0454 




zlpa;? 


0964 




0463 


0459 




NO STATEMENTS FLAGGED 


IN THIS 


ASSEMBLY 
LAST PAGE 



0470 



DATE 14NOV69 30JAN70 15SFP71 20MOV72 
EC NO. 431319 431319A 43132U 431337 



PROG ID 
PAGE 



0810-1 

43 






< i t t ( i t ( ( ( ( ( ( I ( I i 



i {((((((( 'i (((( I ( 



PART NO. m^-Q 
PAGE 1 



SELECTOR CHANNEL MAINTENANCE 
PROCEDURES FOR THE IE", 1800 SYSTEM 

NOTE: THIS DOCUMENT IS INTENDED FOR USE PRIMARILY WITH THE SELECTOR CHANNEL OFF-LINE 
DFT PID 08!C AND SHOULD RE FILED IN VOLUKf! 1* WITH THE DFT DES RIPTION, 

SELECTOR CHANNEL MAINTENANCE PROCEDURES 

THE PURPOSE OF THESE CHARTS IS TO ASSIST THE CE IN DIAGNOSING AND LOCATING SELECTOR CHANNEL 
HARDWARE PROBLEMS. 

THE SYMPTOM REFERENCE CHARTS PROVIDE AN INTERPRETATION OF 0. ! F- AND OP-LINE EP.^i.h 
INDICATIONS, A LIST OF THE CIRCUITS WHICH COULD POSS IELY CAUSE THOSE 11'DIUf' .'•' AND Tlir 
MEANS OF CHECKING THE STATUS OF THOSE CIRCUITS, 

THE SEQUENCE CHART PROVIDES A STEF-BY-STEP CHECK-OUT PROCEDURE UTILISING THi ' MONITOR COX 
THIS CHART WILL FORMALLY BE USED WHEN THE CAPAb I L IT I ES OF THE SYMPTOM REFERENCE CHARTS HAVE ' 
BEEN EXHAUST t D . 

TO USE THE SYMPTOM REFERENCE CHARTS: 

OFF-LINE: 

1) RUN DIACNOSTIC TEST FID C8I0 

2) op-tain error i no i cat i o?^r, (printout on console) 

3) determi:,: t.". sheet v\i;\:,<M from the symptom reference o'art indo 

USE THE FIRM ERROR KTSrA&i:. 
**a. IF ''C.fvpia BUSY" MESSAGE PRINTS AT ANY TIME, CO DIRECT!. 1 TO SHEET U. 
<>*L,. IF "CS r:M CORRECT" I PINTS AND ROTH POSSIBLE ERROR CCRDIOIONS EXIST 

(PITS ft! OR PITS OPE} US- EHEfTSToR "CITS ON". 
l t) FOLLOW THE INSTRUCT IPOS OR' THE SHEET YOU HAVE SELECTED. 

ON-LINE: 

1) DUMP T.P Ff ERROR LOS AND ERROR STATISTICS TAPEE, 

2) THE C: .':?..'•.! FAILING AREA CAN Pt DETERMINM) AS I 01 I 'S ■ 

IMPROPER CSW< SELECTOR CHANNEL FAILURE 
IMPROPER US 'CONTROL UNIT FAILURE 
IMPROPER SENSE BYTEG=DEVICE FAILURE 

3) USE THE SYMPTOM RErCRENGf CHART SHEETS TITLED "CS NOV CORRECT" TO CHEC" OUT 
APPARENT SI I ECTOR CHANNEL FAILURES. 

*() IE THE CONTROL UNIT APPEARS TO RE PUNCT I OR' I KG PROPERLY OCT THE US IS INCOPRICT 
USE THE SYMPTOM REFERENCE CHART SHEETS TITLES "U r - N01 C'J'RtCT" TO AEPPOACR 
THE FE.aiU.EJt, 

OR 

5) IF A 26-; IS ON THE SYShM, RUN THE SELECTCR CHANNEL /2SM/23II ON-LINE DFT 
THE FIRST SECTION OF THIS TEST -IS SIMILAR TO THE OFF-LINE DFT PID OOlO 

6) UEILI2E THE SYMPTOM REFERENCE CHART USING THF ERROR MESSAGES FROM THIS Tl ST 
THE SYMPTOM REFERENCE CHART INDEX INDICATES THE SHEET K'JIWH FOR THOSE 

ERROR MESSAGES WHICH ARE CONSIDERED UHIOUE TO THE SEi ECTOR CHANNEL 
ANY OTHER ERROR MESSAGES SHOULD BE APPROACHED AS ''6M/23I! FA I LURES ! 
TO USE THE SEQUENCE CHART: 

1) RUN THE DFT OR PROGRAM, TO DETERMINE THE FAILING ROUTINE OR (UNCTION 

2) UTILIZE THE SYMPTOM REFERENCE CHART AS MUCH AS POSSIBLE EEICKE USING THE 
SEQUENCE CHART. 

3) ALWAYS BEGIN WITH STEP ! OF THE SEQUENCE CHART. 

h) RESTART THE DFT OR PROGRAM AND BYPASS ERROR PRINTOUTS. 
5) FOLLOW THE ADDITIONAL INSTRUCTIONS ON THE SEQUENCE CHART. 
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selechr channel maintenance 
procedures for the ibk icoo system 

SYnr^l', REFERENC E CHART IKTiEX 
SEE DFT DESCf. ifTIOf-! FOR THl BREAKDOWN OF THE ERROR PRINTOUTS. 



ERROR 










NUMBER 


OFF-LINE El.ROR MESSAGE 






SHEET 




IC ERROR MESSAGES 






1 


DO 


usexpected interrupt 






2 


01 


.."ERRUPT DID HOT OCCUR 






3 


01 


E.-CNNEL l;USY--S;0 HOT ATTEMPTED 






k 


02 


K WOT CORRECT 






5 


02 


AI' NOT CORRECT 






6 


02 


G HOT CORRECT (3 ITS OFI THAT SH.yjir 


' BE 


: on) 


7 


02 


ti NOT CORRECT -BITS ON THAT SHOULD 


BE 


OFF) 


8,9,10 


02 


IE NOT CORRECT '. B ITS OF THAT SHOULD 


BE 


ON) 


11 


02 


;•: not correct ens on that should 


BE 


OFF) 


12.13 


03 


OeKMEL DIDN'T GO BUSY ON TIC TO SE 


J'S' 




l*t 


03 


r/M'A. NOT XFERRE:) TO COtiE 






IN 


03 


'.'C.RAGE PROTECT ED AREA VMS C-ANCED 






IS 


03 


r.;r,;',AHl) RfJ NOT SET 






15 


03 


JKT/- XFtf.RED TO CORK 






15 



ERROR 

NUMBER ON-LINE ERROR MESSAGE SHEET 



■JC ERROR MESSAGES | 

tl5(HP>;) 'JO RESPONSE 3,1, 

E. 16 J'TE COUNT DID NOT STOP DATA TRANSFER 5 

E!0 l.'JCORRECT CSW RECEIVED 5 THRU 13 

El 1 ' SO DATA WAS TRASMf-ERED TO CORE lit 

E1S STORAGE PROTECTED AULA WAS CHANGED 15 

El 7 3ATA WAS TRANSFEREE TO CORE . 15 
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SYMPTOM REFERENCE CHART-SHEET I 



INSTRUCTIONS: 



NO DFT MESSAGES 



1) DETERMINE ERROR SYMPTOM FROM CONSOLE INDICATIONS 

2) DETERMINE FAILING ROUTINE BY SETTING DFT OPTION TO PRINT ROUTINE TITLES 

3) LOOP ON FAILING ROUTINE OR FUNCTION ; BYPASS PRINTOUTS. 
»0 CHECK ALL CIRCUITS LISTED FOR THE APPLICABLE ROUTINE. 

5) REFER TO LISTED ALD PAGES OR TEST POiNT LAI'. EL ON GATE FOR SCOPE AND SYNC PINS 

6) USE KDM'S 10 VERIFY SEQUENCES AND SCOPE PICTURES. 

7) FOLLOW ANY INSTRCUI IONS UNIQUE TO THEFAIIURt. 



(I) 



ERROR SYMPTOMS 



(2) 

FAILING 

FUNCTION 
OR DFT 
ROUTINE 



(3) 



PROBABLE FAILURE 



CO 

POSSICLE 

FAILING 

CIRCUITS 



(5) 

PROPER 

CIRCUIT 

STATUS 



(6) 



ALD 



(7) 

MEANS CF 
CHECKING 
CIRCUIT 



(8) 



I/O MOM SETUP 
SCOPE SYNC PC 



APPEARS LOCKED IN 
SOLID CYCLE STEALS 

SEL CHAN IN' IRRUPT 
ON; PROGRAM AT ERROR 
WAIT OR IN A LOOP 

PROGRAM If. IN A LARGE 
LOOP, WILL 1:0: 
TERMINATE ti.OPERLY 



OP CODE CUtCK 



ANY IMPROPER TERMINATION 
ROUTINE Or A CYCLE STEAL OPEK 
OP. SIO 

UNEXPECTED INTERRUPT 



COMMAND I MM Uf 



A?. 
P.C 
CT 


.MY INC 
; SIO 


PC 
Of 


:y 

iUTIME 
, SIO 


1 

i 
S! 


- 1 

- 2 

• S 


ANY 
ROUT 1 NE 

or sio 



ANY 

ROUTINE 
Oft SIO 



SEE SEQUENCE CHART. 

NOTE: PRESS ADAPTER RESET ON THE I/O MONITOR TO RESTART Tl 

SEE ERGO "UNEXPECTED 
INTERRUPT" SHEET 2 



.38 1 

281 



E ROUTINE PRIOR 10 EACH I/O KONITC: 



DATA XFCf. GATES V? 



"HOT" IN PUS PIT (S) 



CMP CHAIN 


1 ! AG 


OFF 


-SIT SUPf 


R E S S 


OFF 


OUT PL 







INCOMPLETE SENSE DSW SENSE OP 



INCOMPLETE STARi I/O STATE LATCHES 



ON 



i-N IN 

SEQUENCE 



33S 



3M- 
361 



SEE SECIM MCE CHART. 

NOTE: PRIES ADAPTER RESET ON THE I/O MONITOR 

ROUTINE PRIOR TO EACH I/O MONITOR SETUP. 



RE! 



+GATE CYTi CN'iR 


OFF 


TO BUS IN 




+CCW ADPR REG 


OF r 


TO BUS IN 




+GATE B DPR TO 


OPE 


BUS IN 




<GATE A 15 Hi 


OFF 


TO BUS IN 




4CATF. STATUS 


OFF 


REG TO BUS IN 




IflOO BUS IN 


OFF 


ASSEIIDEY 





OM! 

131 

109 
105 
335 



C6U 
OCf. 



SCOPE 



SCO! 



1/5 IE 



.TUP. 



+STATE 3 (;?') 
ISTATU; IN (/<;!} 



+GATED AREA EH.CX 



ISMEGP. RATA X 
lit t CSUXN li 



SCOPE 


-INTERNAL 


SCOPE 


-INTERNAL 


SCOPE 


-INTERNAL 


SCOPE 


-INTERNAL 


SCOPE 


-INTERNAL 


SCOPE 


-INTERNAL 



(33S) 



CM;;) 
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SYKPT0H REFERENCE CHART-SHEET 2 



EP.MSk OO-UNEXPECTEl) INTERRUPT 



INSTRUCT IONS: 

1) DETERMINE THE FAILING ROUTINE FROM THE FIRST EPROR PRINTOUT 

2) LOOP ON FAILING ROUTINE OR FUNCTION; BYPASS "PRINTOUTS 
*) CHECK ALL CIACJITS LISTED FOR THE APPLICABLE ROUTINE * 

V) REFER TO LISTED ALD PARES OR TEST POINT LABEL ON BATE FOR SCOPE AND SYNC PINS 
5) USE KDtt'S TO VERIFY SEQUhNCES AND SCOPE PICTURES. * 



(1) 



(2) 





FAILING 




FUNCTIO! 




OR DI'T 


ERROR SY?i?TOMS 


ROUITNE 


.--•»».,. <-.,__ 


• --.-._ 


T H!S ERR OK n'S'.AGL 


ANY 


CR A LO.';;' V/'TM THE 


ROUTINE 


SEE CI!/.:: INHRRUPT 


OR SIO 


ACTIVE 





2-2 

C!'.D 

chain 



(3) 

PiiODAXLE FAILUi.E 
IMPROPER INTERRUPT 



CO 

POSSIBLE 

FAILING 

CIRCUITS 

INTERRUPT r;FQ. 
"HOT" IN PUS BIT 





GAITS TO 1800 
BUS IN ASSEMBLY 


CANNOT RESET IN'ii 
CONDH ICN 


IS, STATUS REG. 




+SENSC RST 
•(SENSE - 


DID liU'j Cl',1) (NM!, 


! cr,r> CHAIN Fl AC 
■s'i'l FLAG REG 
<DYTC COUNTER 
Uf.O 



(5) 

PROPI R 

CIRCUIT 

STATUS 

OFF 
Off 

OFF 

Oil 

ON 

on 

ON 
ON 
CN 



(0 



ALD 



31! 



O'l-OGS 
371 

m 

33 S 

3? 5 
351 



(7) 

MEAN'S OF 
CHECKING 
CIRCUIT 

SCOPE 
SCOfi. 

SCOPE 

I/O t.ON 

seem 

SCOPE 

SCOPE 

i/o i;o-( 



(6) 

I/O HON' Sf TUP <:■- 
SCOPE SYNC r-SIK. 

■* niTCfU^A'. 

-INTERN,; 

< INTERNAL" 

A! 

<XIO DATA CYCL1 (}■■) 

hGatid at. '.a occo:>e (>:<;,) 

+STATE 3 (J-n 
•iSTATE 3 (-si) 
D2 
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SYMPTOM REFERENCE CHART-SHEET 3 

INSTRUCTIONS 



ERROR OI-IHTERRUPT DID NOT OCCUR 



(1) 



ERROR SYNPTUNS 



1) OETERMINF AH FAILING ROUTINES FP.OK THE ERROR PRINTOUTS. 

2) LOG? ON THE TAILING ROUTINE C p. FUNCTION DE.NG CHECKED , BYPASS PRINTOUTS 

3) CHECK AIL CIRCUITS FOR EACH ROUTINE WHICH FAILS. 

M REFER TO LISTED ALU PACKS OR TEST POINT LABEL ON GATE EOR SCCPL AND SYNC PINS 

5) USE KOK'S TO VERIFY SEO'JCNCES ANN) SCOPE PICTURES 

6) FOLLOW ANY INSTRUCTIONS UN I QUI! TO THE FAILURE. 

(5) (6) 

PROPER 

CIRCUIT 

STATUS AID 



(2) 


(3) 


(■>) 




FAILING 








FUNCTION 

Of; S'T 
ROUTINE 


PR03A8LE fAlll'RE 


POSSIBLE 

FAILING 

CIRCUITS 




1-2 


FAILS TO DETECT A.N 


STATUS REG BIT 


3 


PROGRAM 
CHECK 


INVALID XIO FUNCTION 


INT REG FL 




TEST I/O 


TEST I/O NOT DECODED 


TENT I/O 




VU 


FAILS TO ScT PRO •'.<,.'.;■; 
• CONTROL INHNNiip? 


STATUS REG LIT 


'/. 


3-i 

NOT OPEN, 


FAILS TO [iff! ft A 
N'J'i 0!'lRATIO : :aL 


STATIN-:. LEG DiT 
SELLS! -IN TAG 







DEVICE 


1U00 EUS IN 
ASSCN5LY 




2-2 


failed to (;•::-■ CHAIN 


CI'.S CHAIN FLAG 




CNJ 
CHAIN 




DYTE COUN'TfR 

zrr.n 





(7) 

MEANS Or 
CHECKING 
CIRCUIT 



(8) 



I/O HON SETUP OR 
SCOPE SYNC POINT 



THE FOLLOWING 
RCUTINE(S) FAIL 



CS DiLAY TL 
HALT I/O NOT DECCK CD HALT I/O PL 



HALT I/O 






1-7 
3-3 

TIC 


TIC NOT DECODED 




ANY OTHER 
ROUTINE 
Of! SIO 


INCOHH.ETE START 
FUNCTION 


I/O 



ti: 



ON 
ON 



ON 



ON 



ON 

ON 
ON' 



ON 
ON 

ON 

CN 

ON 



37! 
311 



3H 

371 

371 
035 
061 
ocs 

3d 

I S3 

315 
331 



321 
3* J I 



SCONE 
SCOPE 



scope 



SCOPE 



sec: 


'£ 


1 A> 


PON 


f , t" e " '■' 


"'• 


sec: 


^E 


I/O 


KON 


sec; 


HE 


SCO; 


'E 


I/O 


NCN 


see; 


n. 



+GATED AREA DECODE (3/1) 
+CATED ARC A El COOL {'575} 

-(GATE TEST I/O (3! 1} 

+STATE 3 (351) 



+CII"! SEN SLQ PI (3/1) 

Vi 

+XIO DATA CYCLE (02?) 



■1 STATE 3 (>5't) 

+BYTE COUNT!.. : LAO (l&J;) 
«GATL'D ANNA DECODED (331) 

C! 

■i STATE 3 (3? I) 



CHECK ALL LIGHTS: 

Bl (FOR IHMF.I) CUDS) 

B^ Oil DATA XFEfl CHDS) 

SEE SEQUENCE CHART. 



DATE 0SKAY70 

ec no. i*i\ya 
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PROCEDURES FOR THE I Bit 1800 SYSTEM 
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SYKPTOH REFERENCE CHART-SHEET '. ERROR 01-CHAHKEL EUSY-SIO NOT ATTEMPTED 
INSTRUCT IOHS : 
I) 



(1) 



1) 09TAIN FAILING ROUT I HE FROU ERROR KESSAGT. PRIOR TO THIS l', r SSAGE 

2) LOOP OH FAILING ROUT Hit OR FUi.'CTIOH, DYFASS'TrTuTOI'TS 
3} CHECK ALL CIRCUITS LISTED. 

M REFER TO LISTCH AI..D PACES OR TEST POINT LABEL OH GATE FOR SCOPE AUD SYKC P.K 

S> USE M.OM'S 10 VERIFY SEQUENCES AND SCOPE PICTURES. 

6) f'OLLOJ ANY SPECIAL INSTRUCTIONS. 

7) SEE ISM'S TO DETERMINE TIMIHG OF A/'B COMPLETE AND PHASE COUNTERS 



(2) 



(3) 



(M 



(5) 



CERriR SYMPTOMS 


FA 1 L 1 fiS 

fu:;ctio;j 

OR OFT 
P.C-.TINE 


coiiTir::/ jus prii:iii:c 
of this error 
k;:ssage 


a;:v 

Reun:;E 

OK SIO 



POSSIBLE PROPER 

FAILING CrCUIT 

Fi.OC.-?lE FAILURE CIRCUITS STATUS 



'■>) 



ALt> 



(7) 

HEAUS OF 
CHECs'lNS 
C IRCUIT 



(8) 



I/O CON SEV.JP Of; 
SCOPE Svfjc K'lUT 



busy was not tusked phase counters 

OEi AT THE UB OF THE A/E COKl'LCU 
LA'T START I/O 

CHECK AIL LIGIilf Of; THE I/O C'.-IMTOR: 



SEE |.:OTE ? 
SEE NOTE 7 



201 

221 



TREK, SEC SECi'EKCE CHART, 

ROIL: USE THE ADAPTER RS.CET 0;,' THE I/O MOfHTCm 10 RES 



sccr-r. use the ii;puts to 

sccr-c THiSf circuits as 

SCOPE SY'RC fCIRi'S. 

B! (FCR ir.Mir* Cf'-) 

[•'■ (FOR LATA XFl.fi tJO'S) 



T/-:oi to;: routine prior to each i/o iiouitor se- 



date 05. KAY 70 
EC HO. k$MZ 
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SYMPTOM REFERENCE CHART-SHEET 5 



INSTRUCTIONS: 



SELECTOR C-ifffHEL MAINTENANCE 
PROCEDURES ?SR THE IBM ISOO SYSTEM 
ERROR 02-EC SOT COkRECT 



1) COMPARE ALL ERROR HEDGES TO DETERMINE ERROR SYMPTOM. 

2) LOOP ON FACING RO,:" I OR FUNCTION; EYPASS PRINTOUTS. 

3) REFER TO LISTED A!..: f'.'.KS OR TEST POINT I.AEEL ON GATe'kiV SCOPE AND SYNC P'NS 
*t) USE KDK'S TO VF.KIFV '.".-.UENCES AND SCOPE PICTURES. 

5) INSURE THAT THE bOS S. ASSEMBLER CONTAINS THE SAKE VALUE AS THE BYTE COUNTER 



(0 



(2) 



li) 



W 



(5) 



(6) 



ERROR SYMPTOMS 


FAILING 
Ft'HCT 1 ON 
OR DFT 
ROUT 1 HE 


PROEABU FAILURE 


POSSIBLE 

FAILING 

CIRCUITS 


p;.:per 

C-^.lUIT 
S'l.TUS 




ALD 


VALUE DOES kOT CHANCE 


ANY 

ROUTINE 
OR SIO 


SYTE CO'JV"* IS NOT 
dci kg LC.;:; 


-SET BYTE COUNTER 
STATE 2 


OR 




3«s 


DIFFERENCE BETWEEN 
ACTUAL AS!) DESIRED 
VALUES IS 1,2, OR 3 


ANY 

ROUT IKE 
OR SIO 


NO OF(.RE:;-.-;.7 TO BYTE 
C0UN i Li. 


Gr.WICf-IK TV'S 
1. '■:'•! FL, 
FW'.E 5 . FF'S 
CS RL.Q./ACs; 

mil ccarLETE 

-DECREMENT BYTE 

COUNTER 

SEE tfit'.&it SYMPTOM 


w 

•J'';-. 

PS'"-; ON 
F>:~-i O.N 

E--f 

"val.;:: is in 


CORRECT" 


201 

o.-.fs 

373 
2/1 


VALUE IS AU.'AYS ZERO 


Any 

ROUTINE 
OS SIO 


NO EASE TO IN El'S 


■iGATE liYTE 
COUNTER TO IN 
BUS 


E! 




335 


value is ik'c'.:.;.uect 
(none of the above 

SYfiPTO"') 


any 

ROUTINE 

o:; sio 


single pit edition 


BYTE COUNTER 






ViiMJ 








ICOO PUS IN 
ASSEMBLY 


Sic NOTE 


b 


c<s 


c 




NO RESIT 


STATE 2 


*':':' 




'y ' f « 



(7) 



i/o ho?; 

I/O HON 

i/o mon 

I/O MON 

SCOPE 

SCOPE 



ECCPE 



Sl.V-.P CAM'? 
2155 Cr /,.'. 



SCOPE 



I/O HON 



(8) 



MEANS OF 

CHECKING I/O HON SETUP OR 

CIRCUIT SCOPE SYNC POINT 



SCOPE +STATE 2 (J'fS) 

I/O HON D2 



D2 (FOR CUDS UnHCiilf 
02 DATA XELN, SKIP 
D2 THE FIRST ' OUi! 
D2 CIRCUITS) 
+STATE k (?,[A) 
-CS ACi: (2'/1) 



+CATEO AULA DECODE (33i>) 



+X10 DATA CYCLE (CC?) 



E2 
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SELECTOR CHANNEL MAINTENANCE 
PROCEDURES FOR THE IBM ICOO SYSTEM 
SYMPTOM REFERENCE CHART-SHEET 6 



PAF.l ;:. 22?9''f;5 

PAGE 8 



ERROR 02-AD NOT CCRRCCT 



INSTRUCTIONS: 



I) COMPARE ALL ERROR MESSAGES TO DETERMINE ERROR SYMPTOM 

2} LOOP ON FAILING ROUTINE OR FUNCTION; RYPASS PRINTO'TS* 

3) REFER TO LISTED ALD PAGES OR TEST POINT LABEL ON GATc'fOR SCOPE AMD SYNC 

A) USE MOM'S TO VERIFY SEQUENCES AM) SCOPE PICTURES. 

5) INSURE THAT THE BUS IN ASSEMBLER CCiflAINS THE SAME VALUE AS THE CCW ADDR 



(I) 



(2) 



ERROR SYMPTOMS 


FA 1 LIN'S 

FUNCT 1 ON 
OR DFT 
ROUT 1 NE 


DIFFERENCE BETWEEN 
ACTUAL AND DESIRED 
VALUE IS 1,2, OR 3 


ANY 

ROUT 1 NE 
OR SIO 


VALUE IS ALWAVt, 
/OD03 OR /0006 


ANY 
ROUTINE 

or; sio 


LEFT 9 PITS OR RIGHT 
7 BITS OF CCW ADDR 
RCG ALWAYS « 


ANY 

ROUTINE 
OR SIO 


VALUE IS ALWAYS 
OOOO 


ANY 

ROUTINE 
OR SIO 


VAU'E IS ALWAYS 
/FFIF 


ANY 

ROUTINE 
Oft SIO 


DIFFERENCE BETWEEN 
ACTUAL AMD DESIRED 
IS A MULTIPLE OF 3 


2-2 

2-6 
Cf.D 
CHAIN 


VALUE IS INCORRECT 
(NONE OF THE ABOVE 
SYMPTOMS) 


ANY 

ROUTINE 
OR SIO 



(3) 



PROBAtslf FAILURE 



(<0 ! 

POSSIBLE 

FAILING 

CIRCUITS 



(5) 

PROPER 
CIRCUIT 
STAT US 



NO INCREMENT TO CCW 
ADDRESS REG 



NO SET TO ECU ADDR 
REG 



NO E.A.T r TO IN ENS 
FOR HALF THE CCW 
ADDR REG 



NO GATE 10 IN EL'S 
FOR LRU Ii.E C C ; .,' ADDR 
r.ff. 



RESET UP 'SOL I 



FAILED TO COMMAND 
CHAIN 



SINSLC BIT OH/Of 



WO RESET 



-INCREMENT CCW ON 
ADDR REG 



STATF i ON 

X10 DATA CYCLE OH 

-SET CCW AD REG ON 

•icrw addr me to oh 

CUS IN PI OR 

+CCW ADDR REG TO ON 

BUS IN I'?. 

«CtW ADDR DEC TO O'i 
BUS IN 



TIC OFF 

STATE I ; OFF 

-RESET CCW ABL'R OFF 
RLG 

CMD CHAIN FLA!, ON 



PINS, 
REG. 
(6) 

Al.-i 
131 

3'<1 
027 
131 

131 
131 

335 



521 
3'M 
131 



(7) 

MEANS OF 

checking 

c I RCU I T 



SCOPE 

I/O HON 

SCOPE 

SCOPE 

SCOPE 

SCO? E 

SCOPE 



SCOPE 



(C) 



I/O MOit SETUP OR 
SCOPE SYh'C POIKT 



-STATE 2 (131) 



I? 



KG-ATED AREA DITtiDE (311) 
♦STATE I (1>1,) 

+>:iO DA"A CYCf.L (C'i?) 
+KIO PA'IA CYCLE (02 7) 

<Y,ll< DATA CViMi (02/) 



I/O 110!! 


DE- 




I/O KOJJ 


CS 




SCOPE 


•"ST/.": 


C 2 (\3f) 



< STATE 3 (3 iH) 



CCU ADDR RE". 




133-132 


SWAP CARDS 


2P.'i V 2E6 




1800 OUT BUS 
EIT 


SEE NOTE 5 


02 1-0/"! 3 


SCOPE 


♦STATE t (34T) 




ICOO BUS Itv 
ASSEMBLY 


SEE NOTE 5 


061-065 


SCOPE 


+XIO DATA CYCLE 


(027) 


TIC 

STATF 1 

-RESET CCW ADDR 

REG 


OFF 

ON 

ON 


321 

3'H 
131 


I/O MOM 
I/O MOM 
SCOPE 


CI 
152 
♦STATE 1 (131) 
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SELECTOR CHANNEL MAINTENANCE 
PROCEDURES FOR THE IBM 1800 SYSTEM 
SYMPTOM REFERENCE CHART-SHEET 7 ERROR 02-CS NOT CORRECT (BITS orr THAT SHOULD BE ON) 
INSTRUCTIONS: 

1) COMPARE ACTUAL AND EXPECTED CSW'S TO DETERMINE ERRONEOUS BITS 

2) DETEP.KINE At'; i .(CABLE FAILING ROUTINE FROM FJRST ERROR KE c .'-AGe' 

3) LOOP ON (AILING ROUTINE OR FUNCTION, R<PAS~S "'pkTnTOUi'S " ' ' 
• k) CHECK ALL CIRCUITS LISTED FOR THAT KOUTIN! 

5) REFER TO LISTED ALD PAGES OR TEST POINT LARFL ON GAT! FOR SCOPE AND SYI 

6) USE Mti." ' i TO VERIFY SEQUENCES AND SCOPE PICTURES 



(1) 



ERROR SYI ;•" 0!',S 



BIT OFF 



en i off 



BIT 2 OFF 



BIT > OFF 



BIT U OFF 



BIT G OFF 



C PINS. 



(2) 

FAILING 

FUNCTION 
OR OFT 
ROUTINE 



(3) 



Ik) 

POSSIBLE 

FAILING 



(5) 

PROPER 
CIRCUIT 



PROBABLE FAILURE CIRCUITS STATUS 



(6) 



ALD 



(7) 

MEANS OF 
CHECK INC. 
CIRCUIT 



(8) 



I/O HON SETUP OR 
SCOPE SYNC POINT 



3-1 
NOT 
OPEN 



ANY 

ROUTINE 
OR SIO 



"NOT OPERATION!.' 
NOT DETECT CD 



PENDING UNIT STAiUS 
NOT DETECTED 



STATUS RFC BIT 
SELECT- IN TAG 
INCOMPLETE SIL 

SEQ'-r':CE 

STATUS FIE BIT i 
STATUS 111 TAG 



ON 
CI! 



ON 
ON 



BITS 5,7, OR 8 OFF 







♦CONDITION CM E 
-SET STAT PENDING 
INCOMPLETE SIL 
SEQUENCE 


ON 
ON 


TEST I/O 


PENDING tif! ST- STATUS 
NOT DEUCTLD 


TEST I/O 


ON 


2-6 
PCI 


PROGRAM COM i kOL ■ 
INURRUPT NOT SET 


STATUS REG BIT 2 

STAVE 3 

+SET FLAG REG 


ON 

c:; 
0!-: 


l«2 

PROS 
CHECK 


PROGRAM cures NOT 
DETECTED. 


STATUS REG BIT 3 
AREA DECODE: 


ON 
Oil 


1-9 

DATA 

CHECK ' 


DATA CHECK NOT 
DETECTED. 


STATUS REG BIT k 

STATE 6 

CS ACS 

+XFER IN 

WRiTC ST&H. P?J3T. 

DITS SWITCH 


ON 
ON 
ON 

ON 
ON 


Z" 9 

INCORR 
LENGTH 


INCORRECT LENGTH 
NOT DETECTED 


STATUS REG FIT 6 
SLI FLAG 

+SET INCORCT LNTH 
+XFER COKPL FL 
-DATA XF£R+SbKV« 
IH 


ON 

OFF 

ON 

OFF 

OFF 


HONE 


THESE BITS SHOULD 
NOT BE ON. 







371 
035 



371 

035 

281 

•KA 

311 



37 i 
3 51 

3.' 1 

vn 

311 



373 
361 
029 
321 



373 
301 
281 
379 
271 



I/) HON 
I/O HON 



I/O HON 

I/O HON' 

SCO?E 
SCOPE 

SCC PC 



i/o no:; 


i/o noil 


SCOPE 


I/O HON 


SCOPE 


i /o vm 


I/O CON 


I/O HON 


I/O flOK 


CONSOLE 


I/O HON 


SCOPE 


SCOPE- 


SCOPE 


SCOPE 



C2 
C2 

SEE SEQUENCE CHART 



G5 (EOF; IKMED CUSS) 

B3 (lOt-: RATA XFCR CUDS) 

B5 (FOR IHMED CM1JS) 

B3 (for daia xrrt; chds) 

♦STATUS XFER (201) 
+CKNL SEE SFQ (2G1) 
SEC SEQUENCE CHART 



♦STATE '* (351) 



B2 
B2 
♦STATE 3 (321) 

Gl 

♦ XIO CTRL CYCLE (311) 



C3 
C3 
C3 
C3 



C3 

+STATE 3 (351) 
♦STATUS- IN (281) 
+STATUS-IH (281) 
+XFER COMPL FL (271) 
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SELECTOR CHANNEL KAIN1ENAKCE 
PROCEDURES COS THE IBM !g«QO SYSTEM 
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SYMPTOM REFERENCE CHART-SHEET 8 

INSTRUCTIONS: 



ERROR 02-CS NOT CORRECT (SITS ON THAT SHOULD BE OFF) 



(') 



ERROR SYIiPTOKS 



1) COMPARE ACTUAL AND EXPECTED CSW'S TO DETERMINE ERRONEOUS B TS 

2) DETERMINE APPLICABLE FAILING ROUT!',-; FROM FIRST FRROR HESS GE 

3) LOOP ON FAILING ROUTINE OR FUNCTION; BYPAsTTrTnTOUTS 
M CHECK ALL CIRCUITS LISTED FOR ThAT ROUTINE, 

5) REFER TO LISTED ALD PAGFS OR TEST POINT' LAEEL ON GATE FOR SCOPE fV5 SYNC PINS 

£) USE KIWI'S TO VERIFY SEQUENCES AND SCOPE PICTURES " 

7) INSURE THAT THE DEVICE ADDRLSS AT THE SEL CHAN IS THE SAKl ADDRESS SENT OUT BY THE PROSPAM 



(2) 

FAIL INC 
FUNCTION 
OR DFT 
ROUTINE 



(3) 



PROBABLE FAILURE 



(«0 

POSSIBLE 
FAILING 

CIRCUITS 



(?) 

PROBER 
CIR.UIT 

STATUS 



(6) 



ALD 



(7) 

HEAi.i OF 
CHECKING 
CIKClflT 



(8) 



I/O KON SCI UP OR 


C2 






C2 






CHECK 


CO'- 


:TR0L HtHI 


C't 






■lADDRI 


ss 


III (035) 



BIT ON 



bit i c:; 



BIT 2 Oi 



BIT 3 ON 



ANY 

ROUT I HE 
OS SIO 



1- 


■1 


1- 


■2 


3 


-1 


Kl 


10 EMS 


A! 


,'Y 


ROUTINE 


01 


■ SIO 



A!'Y 

ROUTINE 
03 SIO 



CONTROL UNIT WAS NOT STATUS RTG BIT 
rROPEKLY SELECTED SRr.CT-IN TAG 



UNIT STATUS PER'!) I KG 
WITHOUT A PREVIOUS 
START I/O 



iNCor-nrcT program 

CONTROL INTERRUPT 



PARITY ERROR Pi!": I NT, 
STATES I TKSU 5 



INVALID I OCX FUNCTiO:; 



OFF 

on 



CONTROL UNIT 






&TSABLLD 






h EUf PER 


SEC NOTE 


7 


3to BUS IN 


SEE NOTE 


7 


UiV ADDS REG 


SEE NOTE 


7 


l£-SO EUS OUT 


SEE SO/IE 


7 


ASSRtss wrong 






SKOHi'LtU SEL 






StGJJCNCC 






STATUS RF.G BIT 1 


of r 




-CONDITION 


ore 




SET- RST 






-SET STAT rLNDIi.'S 


OFF 




STATUS REG J IT 2 


OFF 




T ICING OF STATE 3 


o: p 




T1S1IRG OF -fSLT 


OFF 




FLAG Rr.O 






1£"0 OUT EUS 


0' F 




BIT 3 






-P.ST STAT CITS 


ON 




STATUS REG BIT 3 


OIF 




♦PARITY ERROR 


OFF. 




-RST STATES 


ON 




i'/y-.s 






-rsr stat bus 


ON' 




STATUS REG BIT 3 


OFF 




FACTION WRONG 






liSO OUT BUS 


VALID FUHCT 


AREA DECODE 


/9 




-EST STAT 8 ITS 


ON 





371 

035 



103 
105 
0J1 
0?3 
tf:1 

o:,j 



371 
205 

261 

37 1 
3:n 
321 

021 

335 

371 
0*7 

3"5 

335 

371 

021 
311 
335 



I /O KOS 

i /o hOH 



I /O f.OH 
SCOPE 

SCKi'i 



sccr-£ 



I /O K«J 

SCOPE 

SCOPE 

sec;* 
i/c no?i 

SCO?£ 

SCOPE 
SCOPE 



+XI0 CONTROL CYCLE (0?7) 
+XIO CONTROL CYCif (027) 
CHECK raotRAM 

SEC ti.r.rXX Ci-LM.i' 



l/D Njy 

SCCFE 


Al 

-INTERNA'. 


sec.;; 


-INTERNAL 


I/: ft;.:* 

I/C SON 
StCPE 


B2 
C2 
+STATE 3 (321) 



+STATE 3 (321) 

♦SENSE RST (335) 

B2 

+START I/O (3M) 

X7 (231) 

♦SENSE RST (335) 

Bl OR VA 

CHECK PROGRAM 

♦XIO CTRL CYCLE (02?) 

+XIO CTRL CYCLE (027) 

♦SENSE RST (335) 
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selector channel maintenance 
procedures for the ibm 1800 system 



SYMPTOM REFERENCE CHART-SHEET 



ERROR 02-CS NOT CORRECT (BITS. ON THAT SHOULD BE OFF) 



(1) 



ERROR SVi 



"CIS 



cit u on 



dit 5 c;: 



instruct o:;s: 

I) 

2) 
3) 

<0 

5) 
6) 



(OKPARE ACTUAL AND EXPECTED CSW'S TO DETERMINE ERRONEOUS BITS 

F BIT k IS C!i, TURN ON CHECK STOP TO DETTRKINF PR084BI E FAILURE 
1.001' ON FAILING ROUTINE OR FUNCTION; BYPASS PRINTOUTS 
CHECK ALL CIRCUITS LISTED FOR THE APPLICABLE PROBABLE *FA I LURE 
REFER TO LISTED ALO PAGES OR TEST POINT LABEL ON GATE FOR SCc\ AND SYNC PINS 
USE KDH'S TO VERIFY SEQUENCES AND SCOPE PICTURES. 



(2) 

FAIL'NG 
FUNC ; I ON 
OR DrT 
ROUTINE 



(3) 



PRODADLE FAILURE 



POSSIBLE 

FAILING 

CIRCUITS 



(5) 

PROPER 

CIRCUIT 

S-ATUS 



(C) 



ALD 



(7) 



(£) 



MEANS OF 

CHECKING I/O t'/jl! S r YU r ' OR 

circuit scope sy:,c point 



ANY 

ROUT NE 
OR SO 



ANY 

ROUTINE 
CR SIC 



STC'ACE PROTECT 
VIOLATION 



INPUT DATA IV.f.m 

ERROR 



TtfO "IN" TAGS UP 
TOGETHER 



STATUS RIG BIT <> OFF 

STORAGE PROTECT 

DITS IN READ 

TABLE. 
DATA PUT IN "RONS 

CORE iOCATION, 
+STC PROT OFF 

VIOLATION 

STATUS REG CIT U OFF 

A/8 BUFFERS VALID PARITY 

360 BUS IN VALID PARITY 

+GATE BUS IN TO ON 

A/B BUFFERS , 

+GATE A BU" TO ON 

BUS IN 

■fSATE B CUF TO ON 

BUS IN 

-RST STAT DITS ON 

+PARITY ERROR Off 

STATUS REG BIT C OFF 

-SET CO; .MB CUT+ OFF 

INTF CliK 

-SET DISC SS <• OFF 

INT CTRL as;; 

-SET INTERFACE . OFF 

ctrl cm; 

CONTROL UNIT 
IMPROPER SEL 
SEQUENCE 



373 



027 

373 

103-105 
03 1 
101 

105 
109 

m 

027 
373 

2C5 
285 



I/O HON 


02 


CONSOLE 


CLEAR STORA- 




PROTECT BilS 



SCOPE 

i/c m\i 

I/O HON 

SCOPE 

SCOPE 

SCOPE 

SCOPE 

SCOPE 
SCOPE 

I/O HON 

SCOPE 

SCOPE 
SCOPE 



CHECK CAR AND M'.f *;',.' 
♦STATE C HU) 

02 

+SFRVICC-I" (;y <:) 
+BYTL" A (2C>) 

-CS aci; (m) 

-CS ACT- (020) 

tCEI.'SE RST (]■:) 
-CS ACK (&■£.) 

CM 

+CHNL SEL SC^ (££>;) 

+CKHL SEL SEQ (?f>) 

+CHNL SEL SEC (285) 

CHECK CU INTERFACE 
SEE SEQUENCE CHART. 
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SELECTOR C HANK EL MAINTENANCE 
PROCEDURES FOR THE !£* 1 800 SYSTEM 
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PAGE 12 



SYMPTOM REFERENCE CHART-SHEET 10 



ERROR 02-CS NOT CORRIXT (BITS ON THAT SHOUi.3 DE OFF) 



INSTRUCTIONS: 



(1) 



ERiiOR SYKPTO! 



1) COMPARE ACTUAL AND EXPECTED CSV."-- TO DETERMINE ERRONEOUS I fS . 

2) LOOP ON FAILING ROUTINE OR FL'NCT ::•» ; BYPASS PRINTOUTS 

3)- CHECK ALL CIRCUITS LISTED FOR TKE APPLICABLE ERROR SYMPTOM. 

h) REFER TO LISTED ALD PACES OR TEST POINT LABEL ON GATE FOR SCOPE AND SYNC PINS 

5) USE MDM'S TO VERIFY SEQUENCES AW1- SCOPE PICTURES. 



(2) 

FAILING 

FUNCT I ON 
OR OFT 
ROUTINE 



(3) 



PRCtiAC-LC FAILURE 



CO 



(5) 



POSSIBLE 


PROPER 


FA 1 L 1 NG 


CIRCUIT 


CIRCUITS 


STATUS 


+SUPPRESS LENGTH 


ON 


INDICATION 




+SET FLAG REG 


cr-i 


STATUS REG BIT G 


0!T 


GYTf COUNTER 




+XPEP. COMPLETE 


ON 


SERVICE- IN TAG 


ON 


-data ;;plr + 


ci r 


StiU'-lll 




+DATA CHAIN 


OFF 


+SET (NCGPXf LNYH 


err 


-RST STAT PITS 


ON 


STATUS- IN TAG 


C'i 


-TERMINATE I/O 


ON 


ss. 




+HALT I/O PR 


CN 


HSTR RESET 




INCOMPLETE 




OPERATION 




PHASE PC'S 


1 off,; 


-INITIALIZE SEL 


ON 


CHAIN 





(fc/ 



ALD 



(7) 

KEANS OF 
CHECKING 
CIRCUIT 



(6) 



I/O HON SETUP OR 
SCOPE SYNC POINT 



BIT G ON 



BIT 7 CN 



CIT C ON 



ANY 

ROUTINE 
OR SIO 



ANY 

ROUTINE 
OR SIO 



a;y 

ROUTINE 
OR SIO 



SLI FLAG NOT SET 



CU ATTEMPTED TO 
DATA AFTER BYTE'- 
CU END QCCUNPj 
KLFORE EYTE-0 



START I/O DID 
TEl.MIH'TE FRO: 



IMPROPER EKE 
SEQUENCE 



381 
321 

373 

379 

271 

33! 
231 
335 

035 

325 
331 



20! 
251 



SCOPE 
SCOPE 
I/O HON 

SCOPE 

i/o m:n 

SCO?l 

SCOPE 

SCOPE 
SCOPE 
i/o i;;:; 

SCOPE 
SCO- E 



I/O MSN 

SCOPE 



tCTATE 3 (351) ' 

+STATE 3 (351) 

02 

SEE "PC NOT CCRECT" 

■sEYTE COURIER ZERO (3/9) 

D? 

♦XrtR COMPLETE IT. (?/!) 

0:r-EP. COMPLETf PL (27!) 
+STATUS-IN (201). 
+SENSE RST (335) 

n 

+CHANNCL AVAILACl'l-: (325) 

+ INTERNAL 

SEE SEQUENCE CHART 

E3 

+CKANNEL POLLIicO (251) 
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SELECTOR CHANNEL MAINTENANCE 
PROCEDURES FOR THE IBI", 1800 SYSTEM 
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SYMPTOM REFERENCE CHART-SHEET II 



INSTRUCTIONS: 



ERROR 02-US NOT CORRECT (BITS OFF THAT SHOULD BE ON) 



(1) 



ERROR SYIVTOHS 



1) COMPARE ACTUAL AND EXPECTED UA/US TO DETERMINE FAII ING BITS 

2) LOOP ON FAILING ROUTINE OR FUNCTION; BYPASS PRINTOUTS. 

3) CHECK ALL CIRCUITS LISTED FOR THE APPLICABLE ERROR SVKPTOM. 

«*) REFER 10 LISTED ALD PAGES OR TEST POIKT LABEL OK GATE FOR SCOPE AMD SYNC PI Hi 

5) USE MiV;'S TO VERIFY SEQUENCES AND SCOPE PICTURES. 

6) DATA OR CKD MAY BE LEFT IN THE B BUFFER AND INTERPRETED AS US DURING INCOMPLETE OPERATIONS 

7) INSURE THAT THE DEVICE ADDRESS AT THE SEL CHAN IS THE SAME ADDRESS SENT OUT BY THE P'OS'lAN* 



(2) 



FAILING 
FUNCTION 
OS OFT 
ROUTINE 



(3) 



PROGAPLE FAILURE 



POSSIBLE 
FAILING 

CIRCUITS 



(5) 

PROPER 

CIRCUIT 

STATUS 



(6) 



ALD 



(7) 

MEANS OF 
CHECKING 
CIRCUIT 



(8) 



I/O HON SETUP OR 
SCOPE SYNC POINT 



ANY CITS 0-7 OFF 



BUS C,«J, 10,11 OF 



tits n m is off 



BIT \k Off 



DIT 15 OFF 



ANY 

ROUTINE 
OR SIO 

NONE 



INCORRECT ADDRE 



HOfiE OF THESE U'VS 
SHOULD BE 0!i 



A BUFFER 
OEV ADO?. l-.EO 



SEE NOTE 7 
SEE NOTE 7 



AMY 


NO CHANNEL END 




B BUFFER BIT U 


en 


ROUTINE 






OR 5 




OR SIO 






STATU!-!:? TA1 
+SET B CfR REG 

36a bus iij tiir '*' 

OR 5 

♦GATE BUS IN 
-A/B BUF TO BUS 
IN SENSE. 
IKCOK.'LtTE 
OPERATICiH 


m 

ON 
ON 

ON 
ON 


3-2 


INVALID COK.'iAKQ 




IJ BUFFER 


ALL Oil 


UK IT 


NOT DETECTED 








CHECK 






B BUFFER BIT 6 
STATUS- IN TAG 
♦SET 8 CFR P. EG 
•(SET B BFR REG 
STATE 3 

360 BUS IN BIT 6 
360 BUS OUT 
-A/B EUF TO BUS 
IH SENSE 
INCOMPLETE 
OPERATIC'!,' 


ON 

cu 

Of! 
ON 
ON 

on 

ALL ON 

OH 




CONTROL UNIT IS 


HOT 


A 






28i»l Oa 23*48. 








NONE 


THIS CIT SHOULD 
BE ON. 


NOT 







103-107 

U1 



103 



I/O MON 

SCOPE 

I/O HON 



107 


I/O HON 


105 




109 


I/O MOM 


261 


1/0 vm 


101 


SCOPF 


101 


SCOPE 


351 


I/O KQN 


033 


SCOPE 


051 


SCOPE 


115 


SCOPE 



tu 



+XIO CONTROL CYCLE (02?) 



B3 



261 

101 
033 


I/O HON 

SCOPE 

StC'f-E 


E3 

♦STATUS- IN (28!) 

+STATUS-IN (?8t) 


101 


SCOPE 
SCOft 


♦STATUS- IN (281) 
♦XIO DATA CYCLE (335) 



SEE SEQUENCE CIIAR1 



C5 OR B5 

C5 OR 05 

♦STATE 3 (351) 

♦STAT US- 1 U (2il) 

B2 

♦STATUS- IN (28!) 

-CHht SEL SEQ (270 

+XIO DATA CYCLE (335) 

SEE SEQUENCE CHART 



SET OFT TABLE OPTION 
TO BYPASS THIS ROUTINE. 
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SELECTOR CHANNEL MAINTENANCE 
PROCEDURES FOR THE IBM 1800 SYSTEM 



PART M 1. 
PAGE \k 



'^95 



SYMPTOM REFERENCE CHART-SHEET 12 



ERROR 02-US NOT CORRECT (BITS ON THAT SHOULD BE OFF) 



INSTRUCTIONS: 

1) COMPARE ACTUAL AND EXPECTED UAAIS TO DETERMINE ERRONEOUS BITS 

2) DETERMINE FAILING ROUT IN: FROM FIR ST ERROR MESSAGE. 

3) LOOP OH FAILING ROUTINE OR FUNCTION; BYPASS PRINTOUTS. 
M CHECK ALL CIRCUITS LISTED FOR THE APPLICABLE FAILURE. 

5) REFER TO LISTED ALD PAGES OR TEST POINT LABEL GN GATE FOR SCOPE AND W PIPS 

6) USE MOM'S TO VERIFY SEQUENCES AND SCOPE PICTURES. 

7) FOlLCW ANY INSTRUCTIONS UNIQUE TO THE FAILURE. 

8) DATA OR CMD MAY BE LEFT IN THE B BUFFER AND INTERPRETED AS US DURING INCCHHET- OPrSf IONS 

9) INSURE THAT IKE DEVICE- ADDRESS AV THE SEL CHAN IS THE SAME ADDRESS SENT OUT BY Tile PROGRAM* 



(0 



ENRCT: SYMPTOMS 



(2) 

FAILING 
FUNCTION 
OR DFT 
ROUT I IX 



(3) 



PROBABLE FAILURE 



CO 

POSSIBLE 

FAILING 

CIRCUITS 



(5) 

PROPER 

CIRCUIT 

STATUS 



(6, 



ALD 



(?) 

MEANS OF 
CHECKING 
CIRCUIT 



(8) 



I/O HON SETUP OP. 
SCOPE SYNC POINT 



ANY BITS 0-7 ON 



BITS C,?, 10,11 ON 



f-ns 12 mo 13 ON 



ANY 

ROUTINE 
OPi SIO 

ANY 
ROUTINE 

OR SIO 



3-2 

CKD 

REJECT 



I NCOURECT. ADDRESS 



A BUFFER 
DEV ADOR REG 



INCORRECT STAlt:-. FROH B DUFFER BITS 0, 

CONTROL UNIT 1,2,3 

SCO BUS IN EHS 
0,1.*, J 

cu/cl.vice 

incomplete operatic;; 



WITH CSV/ BIT OFF: 
CU DECODED AN INVALID 
ADDRESS e 

WITH US BIT \k OK: 
CHANNEL/DEVICE END 
FOLLOWING AN INVALID 
COMMAND 

WITH US GIT \h OFF: 
AN INVALID C0S1MAND 
WAS NOT DETECTED. 



B DUFFER GIT 6 
3&0 BUS IN BIT 6 



SEE NOTE S 
SEE NOTE 9 

OFF 
OFF 



3-1 


WITH CSV/ BIT ON: 


B BUFFER BITS U 


OFF 


NOT 


CHANNEL/DEVICE END 


AND 5 




OPEN 


FROM A NOT OPER 


3uO BUS IN BITS 


OFF 




CONTROL UNIT 


<+ A!;& 5 





err 

OFF 



103-107 
121 

107 
033 



109 

033 



109 
033 



I/O HON 

SCOPE 

I/O HON 

SCOPE 



1/0 koe; 
SCOPE 



I/O RON 

SCOPE 



+XIO CONTROL 'CYCLE (027) 

C5 

■•STATUS- IN (2Ci) 

CHECK SENSE BYTES FOR 
CU Oil DEVICE FAILURE 
SLC SEQUENCE CKAR1 

B3 

STATUS- IN (J.8!) 
' CHECK CONTROL I'M IT 

SEE "CS NOT COP.RF.CT" 

(BITS Ot F THAI SHOULD 

EL ON) BIT 0; ROUTINE 3"! 

C5 
.♦STATUS- IK (281) 

CHECK CONTROL UNIT 

SEE "US NOT CORRECT" 

(BITS OFF THAT SHOULD 

CE ON) BIT %h; ROUTINE 3-2 
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SYMPTOM REFERENCE CHART-SliEET 13 



INSTRUCTIONS : 



SELECTOR CHANNEL MAINTEW.SCE 
PROCEDURES FOR THE I BK 3iCO SYSTEM 

ERROR 02-US l.'DT CORRECT (SITS ON THAT SHOULD BE OFF) 



(1) 



ERROR SYhPTOi 



BIT \k m 



BIT 15 OH 



1) COMPARE ACTUAL AND EXPECTED CSW'S TS DETERMINE FAILING BITS 

2) LOOP ON FAILING ROUTINE OR FUNCTION-: 2YPASS PRINTOUTS 

3) CHECK ALL CIRCUITS LISTED FOR THF APPLICABLE FA 1 1 If" E ' 

Si B T !oS *™\Y£ n <»\\^H\^S? 5 ,NTolpRETE0 AS us 0M "***™ <"™ T '««. 

8) INSURE THAT THE COMMAND IN THE B BUFFER IS THE SAME COMHAND SENT OUT BY THE PRr-^ AND IS 



(2) 

FAILING 
FUNCTION 
OR DFT 
ROUTfriE 



(i) 



PROBABLE FA I LIKE 



CO 

POSSIBLE 

FAILING 
CIRCUITS 



(5) 

PROPER 

CIRCUIT 

STATUS 



(t) 



ALD 



IN PROPER PARITY. 
(75 

MEANS OF 
CHECKING 
CIRCUIT 



PART NO. 22/g'<95 
PAGE 15 



ANY 

ROUT WE 
or; SIC 



ANY 

ROUTINE 
OR SiO 



COKMND OR.; 

ERRONEOUS JS BIT 



CU RECEIVED A 
COMMAND IT CAN 
NOT EXECUTE OR 
CUD IS IN BAD 
PARITY 



ERRONEOUS INDICATION 
OF AN END-OF-FILE 
CONDITION 



B BUFFER BIT C> 


OFF 




3?0 BUS IN BIT 6 


OFF 




KVICE NOT READY 






3&c bus our 


SEE NOTE 





6 BUFFER 


SEE NOTE 


8 


4SATE BUS OUT 


ON 




TO g BfR 






COfSAND DECODE 






s? BUFFER BIT 7 


OFF 




>50 BUS IN BIT 7 


OFF 





107 
109 



c". 

0G9 

10? 
101 
101 



10? 
109 

033 



I/O MOW 

SCOPE 

SCOPE 
I/O f.y.i 
SCOPE 

i/o nos 

SCOPE 



(0 



I/O MO:: SLTUP OR 
SCOPE SYNC POINT 



D3 AND ft 

♦STATUS- IK (28 1) 
CHECK CONTROL UNIT 

CHECK DEVICE 

-CHNL SEL SEQ (271) 

Ck 

+STATE 3 (351) 

CHECK COf;i:,oL UNIT 

B3 

+STATUS-IK (281) 
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SYMPTOM REFEftEKCE CHART-SHEET ft 



SELECTOR CHANNEL MAINTENANCE 
PROCEDURES FOR THE IBM 1800 SYSTEM 

ERROR 03»;;i$CELLANE0US ERROR MESSAGES 



(1) 



EP.P.O?- SYMPTOMS 



INSTRUCTIONS: 

1) DETERMINE FAILING ROUTINE FROM THE FJjJST ERROR MESSAGE 



2) 
3) 
>*) 
5) 
6) 
7) 



LOOP ON FAILING ROUTINE OR FUNCTION; BYPASS PRINTOUTS. 

CHECK ALL CIRCUITS LISTED FOR THE APPLICABLE FAILING ROUTINE. 

REFER TO LISTED ALD PAGES OR TEST POINT LABEL ON GATE FOR SCOPE AND SYNC PINS 

USE MOM'S TO VERIFY SEQUENCES AND SCOPE PICTURES. 

FOLLOW AMY INSTRUCTIONS UNIQUE TO THE FAILURE 

SEE MDrt'v TO DETERMINE TIMING OF A/B COMPLETE AND BYTE A/B. 



(2) 

FAILING 
FUNCTION 
OR DFT 
ROUTINE 



(3) 



PROBABLE FAILLE 



CO 

POSSIBLE 

FAILING 

CIRCUITS 



(5) 

PROPER 

CIRCUIT 

STATUS 



(6) 



ALD 



(7) 

MEANS OF 
CHECKING 
CIRCUIT 



(8) 



I/O HON SETUP OR 
SCOPE SYNC POINT 



PART NO. 
PAGE !6 



CHAHKEL DIDN'T CO 
3USY Or! TIC TO SENSE 



DATA NOT XFEF."' f: 
TO COkL 



3=3 

TIC 



ANY 

"a!T.R IN" 
SIO 



2-1 

DATA 
CHAIN 



FAILED TO TIC 



CCW ADDRESS \'I,o:-u 

COMMAND AT "TIC TO" 
ADDRESS IS INVALID 
THIS SHOULD C-".' £ V 

bit ii* to co;v: on 



TIC FL 

STATE 3 
STATE DELTA 2 



INCOMPLETE SELECTION 
SEQUENCE 

CONTROL UNIT IS NOT 
A 2S'4l OR 2GVJ 



ON 
ON 
ON 



FAILURE TO COMMONS 


COMMAND CHAIN 


ON 




CHAIN TO TIC 


FLAG 








XKER CCU FL 


ON 






STATE DELTA 3 


OP 






STATE DELTA 1 


ON 




IKPr.CiPCR f'.TA CAT INS 










-A/B B'JF TO I US 


ON 






IN XFtli IN 








A/B COMPLETE 


SEE 


NOTE 7 




CS DELAY FL 


ON 






+SKIP FL 


OFF 






BYTE A/B FL • 


SEE 


MOTE 7 




-SET CS CTRL 2 


ON 





321 

351 
3^5 



jet 

315 
3*5 



221 
315 

301 

SSI 



I/O HON 
I/O HON 
SCOPE 



SCOPE 

I/O 110 

SCOPE 
SCOPE 



scope 

SCOPE 
SCOPE 
SCOPE 
SCOPE 
SCOPE 



CI 
B2 
+TIC FL (V-S) 

SEE "AD NOT ro?.f;EXT" 

CHECK Pilot '.", 

SEE "US NOT COr-JSECT" 
(BITS ON THAT SHOULD 
BE OFF) BIT \k 

-•STATE 3 (351) 

CI 

+STATE 2 O h - ! J) 

+CKAKUEL AVAILABLE (?.''i) 

SEE SEQUENCE CHAK'i 
+CS ACKNOWLEDGE (22£) 

+SERVICE-IN (035) 
+SEKVICE-IN (035) 
+SERV ICE-IN (035) 
+A COMPLETE (22?) 
+STATE 6 (3S't) 

SEE SEQUENCE CHART 



SET DFT TASLE OPTION 
TO BYPASS THIS ROUTINE 



DATE OSKAY70 
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SELECTOR CHAKNEL KAIKTEJiAKCE 
PROCEDURES FOR THE IBM 1800 SYSTEM 



SYMPTOM REFERENCE CHAR-SIJEET 15 

lfiSrr;UCTIC-?5: 



ERfiOa OJ^SISCELLAHEOiS ERROR KESSACES 




2) 
3) 

'0 
5) 
6) 



OETEEJ'.IRE FAILIfS KOUTItJE FHOM F' 
LCC? ON FAILIK3 EOKTIKE OR FVSCh 
CHECK. ALL CIRCUITS LISTED TOP. T;" 
REFER TO LISTED ALO PAGES OR TCS1 
USE KOM'S TO VERIFY JEQ.UEK.fS H 

fcliow any iKSTv;ucTior:s unique t; 



MT ERROR KES5A6E. 
:.i T BYPASS PRINTOUTS. 
<•"HTICAS2.fi PAILItS ROUTIU'S. 
FSICT LACEL ON GATE FOR SCOPE AHD SVS£ PIKS. 
J SCOPE PICTURES. 
THE FAILURE. 



(1) 



fGP.Oft SYi'.PTOflS 



(2) 

FAILING 
FIMCTI03 

OR OFT 
ROUTINE 



(2) 



PR08ABLC FAILURE 



CO 



POSSIBLE 

FAILILS 

CIRCUITS 



(5) 



proper 

CIRCUIT 
STATUS 



16) 



ALO 



(7) 



HEAflS OF 
CHECK I KG 
CIRCUIT 



ST03ACF. PROTECTED 
AREA WAS CKASJOLD 



CO".:!'-. 1 :! P.F.J !»T H 



DATA 

ci.eck 



C!"i 
F;EJ# 



it:; nr a:. fa was 

CODIFIED mW\-P, 

a sciisr cck,a;;» 



US tIT T-';. l;'AS flf'i 

Ttv;a» r.:: a?-tes 
is«irr"i a con:^!!i» 

OF/FF 



t'EUTf ST0f!A"E 
PROTECT BITS 
SWITCH. 

STCRAPS PROTECT 
BIT/CIRCUITS 
FAILia. 



YES 



(0 



I/O HOtl SETUP OR 
SCOPE SYNC POIfST 



co:«eu 



conr/cpu failure 



see "us cot conr.FCT" 

(CITS OFF TFWT S.HiJU) 
BE CU) BIT f£» OiF 



PAST KO. 2:.75'-3C 
PAGE 17 



cava >:rc ;.'.:!= u< cc: 



2'-5 



CC'HtOL (.'"IT Cr. ! : 

accept a co.,;,a:-;!j of/ff 
skip flaci .pais :,d 



STATE 3 

+£iT R.m p c :a 

♦SKIP i>., 

DiY af;d b ur-ii 

-CS MOJii-ST PL 



SET OPT TA-Lt OPYSO:: TO BY 



<:; 

OF? 

off 



: 'to 


BYiV.i 


S TIMS ROUT IKE. 




2?S 




I/O KCM 

SCOPE 
SCOPE 
SCOPE 


62 
- * STATE 3 (351) 
+STATE 3 (S5i) 
+EYTE. (?.'/t) 



315 



I/O KOf, 



?>2 



DATE 0SHAY70 

EC MO. 1)3132'?: 
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SELECTen CltAKKEL MAINTENANCE 
PROCEDURES FOR THE IBS tOOO SYSTEM 



PA-Vf f,'5. 22 ?S'- 
PACE 18 



STEP 



EEQ5JLKCE ChAST 
BOTE: THIS C!!' r T IS VAIID ON'_Y FC3 STAT.T l/O'S (XIO INITIALIZE WRITE) 



iKSTrjcncrs: 



1) LOOP 0!J A FAIL It:-; ROUTINE dr FUKCTIOK AtlD EYFASS PRIKTO'ITS 

2) Cil-XU EACH CG!:-HTICM USICR THE I/O K2SIT0R SETUP GIVE!*/ ' 
•3) &.!UK SCCPilJ; Oil TKE Klti?T FXBOKEOUS CONDITION FCvi.-B. 

} C l : ^!: f Fv' : -' U ; ; : Cc:;niT l 0i « l-l£T£li FOR EACH STEP. t'r34 At; EWS!?d(m CPi-SDITlOW '<■ ccm'S 

rt ft rfr i'i- T r: l ' A i rJ,K3 UG,1TS M,T " Ti;H l/0 K?a,T0R S ™ P <*LIF0 OUT OU THAT <TTH 

5) KSlcSiSw m5 M JK5,?foK CR ua,CATES A FA,UWE 0F A " c " D,SKAY CCK8ir! ^ : - 

6) tilAD ALL S FECIAL K&TES Ail'j COUNTS WITHIK THE CliART 



COffiJITIC;; 



1 


ph 


ase ceyti'sF; 


2 


At 


£A DECOi-v: 


J 


Ft! 


KCTIOM BLC 


'i 


£'J 


; SY SET 


& 


e* 


WYES 2 AK3 


6 


C'. 


'ATE *i GET 


7 


(J 


ADY LATCH 


!' 


p;: 


:'.'£ CCs'j;;t£ 


S 


CX 


".LOT KIT 


10 


i: 


r-ixss ccrr 


11 


c 


;.,. r.v-is 


n 


CF 


o-atio:;al 


t.t 


A: 


:•(&$ IH 


u 


At 




t*. 


t( 


s. ■>•=;'., ■; Gjt 



.''.0 



2« 
311 
571 
573 

5'i-S 

31 i 
201 

577 

vn 
tos 

2C-5 
035 
17t 
377 



i/o rcos 

SETUP 



t) 



a ' (^:tt) 

ti:>T DltfLAVCD 
E't OK \h 
U (STATE 

ex 

1:2, 
C2 
C2 

ei 

C'i 

C'l 
C'i 

ot oin;./ 
0* 



i/o licr: 

LIGHT 



A16-A17 

A3 
A3 
C2 & C3 

A1B 

AIC-/J7 

Pi 

C?. 

AS -A? 

17 

13 

r.r 



PROPER 

STATUS 



PAGE COR'.'fJTS 



doth err 

CFF 

P!l 

CI! 

ori 

ea 

l on, 2 ( 

or: 

Of! 
VALID A': 

Oil 

CM 



30t?,0 
301'*0 

3C-1':0 

301/Q 

301 ro 

3C'U:0 

30iSa 

sotso 

30ti;0 
30*50 

3Cfl;j 



ci:a:c:;::l poujkg 

Cf." rn J (&IF.PLAY fFLt'CT SWTCi! % C: 

ct.j lit / (i-.i splay sauv switch > c. 



select ik; zr.Q'jw. 



fc I SI-LAY t-TL,f L-T S'.TiCK 1 OK 



ft ft ft ft v*. 



* CKtPALE ALL LIC.'.lTc Ci Til;. I/O !,; ■: l TOf-: 

^ ut;: eii LA.Vi.ri. 

* * ft it ft ft iv i.- # ft •;.• -.v •;, -k a is ■: ■:-. -i: ■;- 



•Si :'f is A •;. •;< ft V: <■ ■;. ; 

t>! ec:tc'p $,i:::ct ( ; 



li.;,., co 



»'.■ •;.- ft * 



••'•' * A V.- Vr ft ft Vw »V ft * ft ■;.- ft * * ft «.■ v. ft *V ft 

ft 
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